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NeH’ormai celebre rapporto del 
1978 di D. Nora e A. Mine intitolato 
"L’informatisasion de la société”, 
pubblicato in Italia da Bompiani, 
con il titolo “Convincere con il cal¬ 
colatore" si legge "....Se la Fran¬ 
cia non torverà una risposta cor¬ 
retta alle sfide nuove e gravi che le 
vengono poste, le sue tensioni in¬ 
terne le toglieranno la possibilità di 
padroneggiare il suo destino. L’in- 
formatizzazione crescente della 
società è al cuore di questa crisi. 
Essa può aggravarla o contribuire 
a risolverla. A seconda della politi¬ 
ca in cui si iscriverà, l’informatiz- 
zazione potrà portare il meglio o il 
peggio. I suoi difetti non sono né 
automatici né fatali: essi dipende¬ 
ranno dal modo in cui si sviluppe¬ 
ranno negli anni a veniere i rappor¬ 
ti tra Stato e società civile”. 
Crediamo che le considerazioni di 
Noa e Mine a sei anni di distanza 
dal loro rapporto siano ancora at¬ 
tualissime per il nostro paese do¬ 
ve, nonostante i progressi degli ul¬ 
timi tempi, secondo il più recente 
studio del Censis, patrocinato dal¬ 
la Finsiel, sulla "via italiana all’in¬ 
formatica”, la “cultura del compu¬ 
ter” è ancora estranea al tessuto 
sociale. 

Preannunciata alla fine degli anni 
70 dall’ispettore generale delle fi¬ 
nanze della repubblica francese e 
dal suo più stretto collaboratore, 
('informatizzazione della società 
sta, dunque, diventando una 
realtà. 

I governi degli altri paesi industria- 
lizzati europei come, appunto, la 
Francia, la Gran Bretagna, la Ger¬ 
mania Federale, si muovono in 
questo senso. 

In particolare il governo tedesco, 
intenzionato a recuperare il tempo 
perduto, ha già stanziato tre miliar¬ 
di di marchi per un programma di 
ricerca nel settore della tecnica 
dell’informatica. 

A questo primo stanziamento se 


Azienda Ita¬ 
lia e com¬ 
puter: un 
matrimonio 
difficile. 


ne aggiungerà quanto prima un al¬ 
tro di nove miliardi di marchi al 
quale provvederanno le poste fe¬ 
derali. 

Questi finanziamenti sono destina¬ 
ti soprattutto alla submicrotecno- 
logia. , 

Insomma, alla fine degli anni 80 la 
Germania vuole sviluppare micro¬ 
chip della capacità di quattro milicH 
ni di bit, mentre le attuali non ne 
contengono che 250 mila. 

Con il sostegno del Governo fede¬ 
rale è scoppiato anche il boom del¬ 
la facoltà di informatica. Il numero 
elevato degli aspiranti ha indotto i 
professori a chiedere il numero 
chiuso a favore della qualità 
dell’insegnamento. 


Per quanto attiene alla Francia, il 
lavoro di Noa e Mine, al di là dei 
pregi intrinsechi, può essere con¬ 
siderato l'espressione della vo¬ 
lontà del Governo di Parigi di af¬ 
frontare con un programma orga¬ 
nico e chiaro il problema della tele¬ 
matica. 

Infatti si è cominciato ad applicare 
quanto veniva indicato nel rappor¬ 
to, dando vita all’annuario elettro¬ 
nico per gli abbonati al telefono, al 
teletei ed al videotel ed, infine, ad 
un programma per la televisione 
via cavo in fibbre ottiche. 

In Italia, invece, la cultura dell’in¬ 
formatica stenta a far presa sulla 
classe politica italiana la quale non 
sembra avvedersi del pericolo che 
incombe sul nostro paese in termi¬ 
ni di sviluppo economico e sociale 
nel caso in cui non ci si dovesse 
decidere in maniera organica ed 
approfondita ad affrontare il com¬ 
plesso problema. 

Dunque, le difficoltà nel processo 
d’informatizzazione della società 
italiana non sono solo di ordine 
tecnico e culturale, ma anhe politi¬ 
co. 

Al di là dei problemi pratici inerenti 
alla formazione di una classe am¬ 
ministrativa in grado di gestire cor¬ 
rettamente gli strumenti dell’ifor- 
matica, rimane un nodo da scio¬ 
gliere e che è, come dicevamo 
squisitamente, politico. 

La classe dirigente italiana, il Par¬ 
lamento hanno veramente la co¬ 
scienza e la volontà di affontare 
come veramente è stato fatto in 
Francia il problema dell’informatiz- 
zazione della società? 

Per ora ci si è fermati alla predispo¬ 
sizione di uno schema di legge per 
la regolamentazione del settore da 
parte di una "Commissione di 
coordinamento per le iniziative in 
materia di informatica”. Ci sem¬ 
bra, francamente, un pò poco. 

Fausto Carmignani 
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MZ 700: Refuso, 
grafica e 

gradita collaborazione 


Gentile redazione di LIST, 
sono un fortunato possessore di uno 
SHARP MZ-700 che puntualmente si re¬ 
ca ogni giorno in edicola per chiedere 
se la vostra spettacolare rivista sia 
uscita e, in caso affermativo pervengo 
a sottolineare) con notevole ingordigia 
leggere i fantastici programmi da voi 
pubblicati, ma non solo, anche e so¬ 
prattutto la rubrica “DENTRO IL COM¬ 
PUTER” che devo ammettere non ha 
pari in nessun altro giornale di informa¬ 
tica da me conosciuto. Sono socio di 
un club che conta a pochi mesi di vita 
circa 1200 soci, e che giorno dopo gior¬ 
no si arrichisce sempre più (chiunque 
voglia avere maggiori informazioni cir¬ 
ca il club può scrivere a me). Ma venia¬ 
mo al nocciolo della mia lettera. Nel nu¬ 
mero 3 di LIST sono apparsi 2 programi 
per PMZ-700. Il primo “CACCIA AL TE¬ 
SORO” è ottimo, gira senza problemi 
ed è molto divertente. Il secondo 
“ISTOGRAMMI” mi ha invece lasciato 
alquanto perplesso. Ma di che MZ-700 
si tratta? 

Sicuramente è stato scritto per qual¬ 
che altro computer. 

Infatti il BASIC VIOA fornito dalla Sharp 
in dotazione con il computer non pos¬ 
siede istruzioni quali TEXT, PAPER, 
INK, SHOOT, ELSE, PLOT presenti in¬ 
vece nei suddetto programma. Come 
ben saprete l’interprete viene caricato 
da nastro, per cui esistono molti altri 
BASIC oltre il VIOA che possono esse¬ 
re utilizzati con l’MZ700. È stato scritto 
con un altro BASIC? Ed in caso affer¬ 
mativo quale? 

Sto completando alcuni programmi a 
fini didattici che al più presto vi spedirò 
in modo che anche gli utilizzatori 
deH’MZ-700 possano usare questo 
computer non la scuola. Ottima idea LI¬ 
ST club al quale aderirò senz’altro. 

Per concludere la mia lettera una do¬ 
manda: quanti sono i colori 
dell’MZ-700? Il manuale garantisce 8 al 
massimo. Ma nel programma dimostra¬ 
tivo la macchina è in grado di produrre 
una gamma di colori ben 10 volte mag¬ 
giore. 

Ed infine: grafica video dell’MZ-700 as¬ 
sai scarsa (80 x 50) non è espandipi- 
ble? Vi ringrazio per l’attenzione alla 
mia lettera, e con la speranza di una ra¬ 
pida risposta vi saluto cordialmente. 

Dario Letizia 


sbassa 


P 




*aì viglili' 


La sua lettera è un 'ulteriore conferma del 
piccolo giallo creatosi attorno al program¬ 
ma menzionato. 

Non si preoccupi, la SHARP continua a 
fornire sempre il BASIC VIOA al suo mo¬ 
dello MZ-700. 

Il problema lamentato da lei come da altri 
lettori è che le istruzioni: TEXT, PAPER, 
INK, SHOOT, ELSE, PLOT appartengono 
ad un computer diverso dallo SHARP, 
esattamente TORIO 1. 

Il solito dannato e maledetto refuso tipo¬ 
grafico, facilitato in questo caso da due 
programmi analoghi e di cui uno solo 
stampato per motivi di impaginazione. 

Ce ne scusiamo con lei e con tutti gli altri 
lettori possessori dello SHARP. 

In ogni caso sul precedente numero di 
Luglio-Agosto è già stata stampata nella 
errata corrige una nota che riguardava 
questo problema. 

Riguardo la grafica video, quella a cui si ri¬ 
ferisce lei è senza dubbio la parte che ri¬ 
guarda il modo testo, che tra l’altro è tra i 
più potenti. Le facciamo l'esempio del 
COMMODORE 64 dicendole che tale par¬ 
te è di 40 x 25 e la stessa casa riserva so¬ 
lo ai modelli piu grandi e per uso profes¬ 
sionale uno schermo di 80 colonne. 
Sicuramente saprà bene che più si sale 
nella categoria di qualità del computer e 
meno sono sviluppate certe prestazioni 
grafiche tipiche degli home. il perché è 
semplice. 

In questi modelli le prestazioni grafiche 
possono essere anche di qualità molto 
elevata o per applicazioni molto particola¬ 
ri, per cui si preferisce ricorrere a delle 
schede di espansione grafica esterne. 


Perdita di memoria?! 


Può succedere ad un computer di “per¬ 
dere” memoria? Possiedo un VIC 20 e 
più di una volta mi è capitato, dopo aver 
digitato alcuni programmi, abbastanza 
lunghi in verità, ma indicati come per il 
VIC versione base, di veder visualizzato 
sullo schermo il messaggio “OUT OF 
MEMORY”. Addirittura a volte un pro¬ 
gramma che “girava” perfettamente la 


prima volta, se ricaricato dalla cassetta 
viene “bloccato” dallo stesso messa- 
gio. Potreste spiegarmi il perché? 

Michele Longo 
Reggio Calabria 
Come avrai già certamente capito, il VIC è 
un po' ''vulnerabile'' quando la memoria a 
disposizione è stata quasi completamente 
occupata. 

Quando il computer trova uno statement 
DIM, riserva spazio nella memoria per 
ogni elemento richiesto. 

Suggeriamo, a te e a tutti gli altri lettori 
che si saranno senz'altro trovati a dover 
fronteggiare il problema, di usare il CLR 
per eliminare tutti i valori assegnati alle 
varie variabili, e mantenere la grandezza 
delle ARRA YS nel minimo possibile. 


Peri “Vic-Hinghi” 


Possessore soddisfattissimo, da qual¬ 
che tempo, di un VIC-20, che mi ha per¬ 
messo, a relativamente poco prezzo. Di 
avvicinarmi a questo affascinante mon¬ 
do del futuro, vorrei, naturalmente, 
perché lo meritate ampiamente, elevar¬ 
vi un plauso per la splendida rivista che 
siete riusciti a creare. 

Sinceramente, “a caldo” (l’ho acquista¬ 
ta solamente poche ore fa). Non riesco 
a fare mente locale su cosa particolar¬ 
mente la rende “migliore”, ma presu¬ 
mo “tutto”. 

La leggibilità, la stesura dei program¬ 
mi, l’introduzione, le iniziative... Forse 
un po’ tutto contribuisce a renderla “di¬ 
versa” dalle altre, ovviamente, e cosi 
dev'essere perché nulla è perfetto. Ho 
trovato, anche se a mio parere, alcune 
lacune, ma sono sicurissimo che avre¬ 
te già pensato a come colmarle. 

Essendo, come già detto, possessore 
di un “piccolo” VIC-20, chiaramente 
tendo a chiedervi qualcosa per esso; ad 
esempio, io posseggo l’espansione 
commutabile 3-8-16 Kb della Vixen che 
finalmente fa del VIC una macchina un 
po’ più potente; ma su “LIST” non ho 
trovato nulla per il VIC espanso. 

Eppure sono certo che sarà la tendenza 
futura di tutti i “vickisti” (speriamo si 
dica cosO espanderlo. 

A me piacerebbero molto Utilities di va¬ 
rio genere (basta giochi!!!). Mi piace¬ 
rebbe anche che pubblicaste a pié di 
ogni listato, la lista dei simboli più diffi¬ 
cili e come ottenerli. Ciò gratifichereb¬ 
be ancor di più. La vs. immagine di rivi¬ 
sta ancorata ai bisogni elementari dei 
neofiti dell’informatica. 

Ovviamente se l’avete già fatto in uno 
dei precedenti numeri, vi chiedo scu¬ 
sa.... di non averli comprati. 

Concludo questa macchinosa lettera, 
che non ha certamente la pretesa di tro¬ 
vare spazio nella posta data la prolis¬ 
sità dello stile di scrittura, con la pre- 
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LIST POSTA 


ghiera di dar corso al mio nome all’ab¬ 
bonamento di questa splendida rivista. 
Cordiali saluti. 


Graziano Pellegrini 
Poggio Renatico 


Effettivamente solo dallo scorso numero 
abbiamo cominciato a pubblicare dei pro¬ 
grammi per il VIC espanso, cosi tutti i 
" VIC-hinghi" (noi preferiamo chiamarli 
cosi) nostri lettori, potranno soddisfare la 
voglia di implementare sul Vie espanso o 
riflettere sull'acquisto di una eventuale 
espansione. 

Anche in questo numero pubblichiamo 
qualcosa per il VIC espanso a 16 K con la 
speranza che sia di vostro gradimento. 
Non dimenticheremo comunque tutti quei 
possessori del VIC in versione base, conti¬ 
nuando a fornir loro listati e notizie che li 
possano riguardare. 

Ringraziamo ancora una volta il sig. PEL¬ 
LEGRINI per i complimenti espressi in no¬ 
stro favore e prendiamo atto anche dei 
suoi consigli. 


Spectrum 16K/48K: c’è 
differenza? 


Possiedo uno Spectrum 48K ed ho no¬ 
tato che nel caso abbia digitato dei pro¬ 
grammi contenenti routines in Codice 
Macchina indicati come programmi per 
il 16K, possono esserci delle difficoltà 
nel farli girare. I programmi invece di¬ 
chiarati per il 48K girano perfettamen¬ 
te. 

Esistono dunque delle differenze fra i 
due computers? 

Se si, come si possono rendere pro¬ 
grammi per il 16K, compatibili con il 
48K? 

Andrea La Torre 
Genova 

La "lavorazione" delle routines in codice 
macchina è di importanza... vitale se si 
vuole che un programma giri alla perfezio¬ 
ne. 

Essendo lo Spectrum 16K e 48K due com¬ 
puters “gemelli'' generalmente non do¬ 
vrebbe incontrarsi difficoltà nel far girare 
routines progettate per il primo sul secon¬ 
do. ma purtroppo una risposta sicura - ne¬ 
gativa o positiva che sia - dipende dai sin¬ 
goli casi. Possiamo comunque dire che. 
per esempio, si potrebbe nel caso di un 
48K memorizzare le suddette routines ol¬ 
tre l'indirizzo 61439 (l'equivalente su un 
16Kè28671). 

Effetti sonori sul VIC 


Possiedo un VIC 20 e riuscendo ormai a 
programmare “egregiamente” mi pia¬ 



cerebbe poter arricchire I miei primi 
programmini con degli effetti sonori. 
Le routines contenute nel manuale le 
ho ormai già tutte sfruttate e vorrei po¬ 
ter riprodurre dei suoni per mio conto. 
Potreste dirmi come potrei fare? 

Riccardo De Lucia 
Lecce 

Probabilmente per rispondere esauriente¬ 
mente alla domanda posta ci vorrebbe 
un 'intero numero di LIST. 

Ad ogni modo, rimandando il nostro letto¬ 
re alla consultazione di letteratura specia¬ 
lizzata. possiamo intanto indicare uno dei 
suggerimenti di Philp Campbell, autore del 
libro “Delving Deeper into your VIC 20". 
Campbell suggerisce di adottare una par¬ 
ticolare tecnica che consiste nell’ON/OFF 
rapido dei registri di suono. Si tratta di un 
espediente molto valido per poter creare 
effetti del tipo “raggio-laser” o “motori ”... 
Un esempio di tale routine potrebbe esse¬ 
re il seguente: 

10 REM LASER 

20 SI = 36874: S2 = SI + 1: S3 = 
SI + 2: 

N = SI + 3: V = SI + 4: POKE 
V.15 

30 FOR Z = 1 TO 15: POKE S3. 235 + 
Z: POKE S2. 238 + Z 
40 POKE S3.0: POKE S2.0: NEXT 


Compatibilità 


Possiedo già da qualche mese un 
ORIC-1, che è fra le altre cose il mio pri¬ 
mo computer. 

Un mio amico possiede invece uno ZX- 
Spectrum della Sinclair, il quale dà la 
possibilità all’utente di definire della 
grafica propria (User Defined Graphics 
n.d.r.). Manuale Spectrum alla mano, 
ho provato a fare quanto spiegato con 
l’ORIC, ma purtroppo senza alcun risul¬ 
tato. Sono poi cosi differenti i due com¬ 
puters o esiste una “certa” compati* 
blità? 


Francesco Moroni 
Firenze 


Con al sua lettera il lettore di Firenze ha 
come si suol dire, “messo il dito nella pia¬ 
ga". Infatti nonostante gli elementi stan¬ 
dard del BASIC siano pressoché gli stessi 



per ogni tipo di computer, alcune parti del 
linguaggio, come appunto le istruzioni per 
la grafica, sono purtroppo differenti e va¬ 
riano addirittura fra computer della stessa 
Casa. 

Nonostante dunque le "tecniche" usate, 
per “creare" la grafica sullo Spectrum e 
su II'OR IC siano, in generale, le stesse, il 
loro implemento è diverso. 

Per poter dunque rendere “compatible " il 
programma di un determinato computer 
con un altro è dunque necessario, manua¬ 
li alla mano, studiare attentamente i due 
diversi BASIC in modo da poter apportare 
le giuste modifiche. 


RUN/STOP... STOP’ 


Esiste un modo per “neutralizzare” il 
tasto RUN/STOP del mio CBM 64 men¬ 
tre un programma è in esecuzione? Se 
esiste, potreste dirmi qual’è? 

Giovanni Dartini 
Alessandria 

Un modo per neutralizzare momentanea¬ 
mente il comando RUN/STOP esiste, ma 
ha l'inconveniente di bloccare allo stesso 
tempo l’orologio interno al sistema stes¬ 
so: 

Ad ogni modo, ecco la procedura de se¬ 
guire: 

— per disattivare il tasto RUN/STOP digi¬ 
tare: 

POKE 788, PEEK(788) + 3 

— per ripristinare lo stesso, digitare 
POKE 788, PEEK (88) - 3 


A.A.A. Spectrum-LOGO 
cercasi 


Ho letto su alcune riviste specializzate 
degli articoli riguardanti il linguaggio 
denominato LOGO. Possiedo uno 
Spectrum 16K e vorrei sapere se esiste 
una versione di questo linguaggio per il 
mio homo computer. 

Simone Clerici 
Milano 

È possibile trovare in commercio il LOGO 
per diversi computers, come il Commodo¬ 
re 64 e il TI-99/4A, ma purtroppo al mo¬ 
mento non è ancora disponibile una ver¬ 
sione per il pur diffusissimo Sinclair ZX- 
Spectrum. 

Ad ogni modo per saperne nel frattempo 
di più su questo affascinante linguaggio di 
programmazione, possiamo indicarti al¬ 
cuni titoli di libri che potrai senz'altro tro¬ 
vare in librerie specializzate. 

— Mindstorms di Seymar Paper, /'“inven¬ 
to re" del LOGO, pubblicato in edizione 
originale dalla Harvester Press. 

— Logo Programming di Peter Ross, edito 
da Addison - Wesley. 
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SCUOLA E COMPUTER 


controllare tutti i valori corrispon¬ 
denti della funzione (y), di "plottar- 
li” se compresi tra i limiti permes¬ 
si, di passare al valore successivo 
se ciò non accade; (vedi fig. 2). 

Se si preferisce, come è abitudine, 
avere l’asse delle ordinate orienta¬ 
to verso l’alto, basta porre: 

Y = 199 - F(X) 

Per quanto riguarda la traslazione 
deH’origine, basta ricorrere al 
cambiamento di coordinate; 


Ancora sui 
sistemi di 
riferimento 


Quando si sceglie un sistema di ri¬ 
ferimento per rappresentare il gra¬ 
fico di una funzione occorre fissa¬ 
re preliminarmente, su ciascun as¬ 
se, un’origine, un verso e un’unità 
di misura. 

Ciascun calcolatore, con uscita su 
monitor, fa questa scelta in base 
alle proprie caratteristiche hard¬ 
ware, in maniera automatica, e di 
questa scelta occorre tenere con¬ 
to. 

Per esempio il CBM 64 (al quale 
d’ora in poi faremo riferimento, ma 
il ragionamento è praticamente e 
facilmente adattabile a pratica- 
mente tutti gli altri microcalcolato¬ 
ri) sceglie come origine l’angolo in 
alto a sinistra dello schermo, l’as¬ 
se delle ascisse, orrizzontale, 
orientato da sinistra a destra, l’as¬ 
se delle ordinate, verticale, orien¬ 
tato dall’alto verso il basso. 


L’unità di misura, come è logico, 
sarà il più piccolo intervallo indiriz- 
zabile, cioè un pixel (nel nostro ca¬ 
so 1/320 della larghezza dello 
schermo e 1/200 dell’altezza, se si 
lavora in alta risoluzione), (vedi fig. 
1) 

Naturalmente il calcolatore non 
può rappresentare tutti i punti del 
grafico, ma solo quelli con coordi¬ 
nate (intere) comprese tra 0 e 319, 
per le ascisse, e tra 0 e 199, per le 
ordinate 

Se si ordina al calcolatore di rap¬ 
presentare un punto con coordina¬ 
te non comprese in questi limiti, si 
otterrà, chiaramente, una segnala¬ 
zione di errore. 

Questo primo problema si risolve 
facilmente dando direttamente 
istruzioni affinché la variabile indi- 
pendente (x) assuma tutti e soli i 
valori accettabili (tra 0 e 319), di 


X = x-x 0 , Y = y-yo 

con x 0 e y<> coordinate della nuova 
origine nel "sistema del calcolato¬ 
re". (Per maggiori dettagli vedi 
LIST n° 4). 


Cambiamenti di scala 

Abbiamo effettuato, a questo pun¬ 
to, due delle tre scelte fondamen¬ 
tali: quella del verso degli assi e 
quella dell’origine del sistema di ri¬ 
ferimento. In quanto all’unità di mi¬ 
sura, rimane quella scelta dal cal¬ 
colatore, cioè un pixel. 

Può succedere che questa unità di 
misura non sia la più adatta, 
perché troppo piccola o troppo 
grande. 

Occorrerà allora correggere i valo¬ 
ri numerici mediante un opportuno 
fattore di scala. 
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SCUOLA E COMPUTER 


Ad esempio, se ci interessa la par¬ 
te di grafico compresa tra x = 0 e 
x — 10, converrà pensare l’asse x, 
in realtà diviso in 320 parti, ciascu¬ 
na “lunga” un pixel, come se fosse 
suddiviso in 10 parti, ciascuna 
“lunga” 32 pixel. 

Per ottenere questo occorre molti¬ 
plicare la variabile x per il fattore di 
scala 


320 

In generale, per cambiare la scala 
in modo che contenga (su una riga 
di schermo) un intervallo DX (fondo 
scala) occorre moltiplicare la va¬ 
riabile per il fattore di scala x: 


FSX = 


DX 


dove con NYPXL abbiamo indicato 
la lunghezza della colonna di 
schermo misurata in unità pixel. 
Riassumendo, per rappresentare il 
grafico di F(X) con le unità di misu¬ 
ra da noi scelte, useremo la formu¬ 
la: 

Y • FSY = F(X *FSX) cioè: 

Y = -p^rr * F (X *FSX) 



Ricordiamo brevemente che, se si 
riporta un angolo con il vertice 
coincidente con l’origine di un si¬ 
stema di riferimento e con uno dei 
due lati coincidenti con la semiret¬ 
ta positiva delle ascisse, il secon¬ 
do lato intercetta sul cerchio (go¬ 
niometrico) con centro nell’origine 
e raggio unitario un punto (vedi fig. 
5) la cui ascissa e la cui ordinata 
(che sono naturalmente funzioni 
dell’angolo), prendono rispettiva¬ 
mente il nome di coseno e seno 
dell'angolo considerato. 

Si ricava immediatamente dalla 
definizione che 

a) il valore di Y = SIN(X) è compre¬ 
so tra un valore minimo Y = -1 
(quando x = 3*12 = 270°) e un va¬ 
lore massimo Y = + 1 (quando 
X = 7r/2 =90°) 

b) i valori di y sono gli stessi se 


NXPXL 

dove con NXPXL si è indicata la 
lunghezza della riga di schermo 
misurata con “unità pixel” (nel ca¬ 
so del CBM 64 una riga è lunga 320 
pixel o 160 nel modo multicolore). 
Dato che la X è la variabile indipen¬ 
dente, siamo noi, di solito, a deci¬ 
dere il fondo scala, mentre NPXL è 
un valore caratteristico di ogni cal¬ 
colatore. 

Per quanto riguarda la variabile in¬ 
dipendente, i suoi valori non sono 
di solito noti a priori e quindi non 
sappiamo, all’atto della stesura del 
programma, quale possa essere il 
fondo scala più conveniente. 

Se vogliamo che il grafico di 
Y = F(X) (per i valori di X che abbia¬ 
mo fissato in precedenza) sia tutto 
contenuto nello schermo, dovre¬ 
mo, prima di far disegnare il grafi¬ 
co, calcolare il fondo scala DY, 
che sceglieremo pari alla differen¬ 
za tra il valore massimo e il valore 
minimo assunto dalla Y, al variare 
della X nell'Intervallo prefissato. 

In formule: 

DY = YMAX-YMIN 

Il calcolo di DY il calcolatore lo fa 

da sé, con semplici istruzioni. 

Il fattore di scala per la Y sarà, co¬ 
me prima, dato da: 


NYPY' 


Calcolatore e trigonometria 

Vediamo ora come, utilizzando la 
grafica del calcolatore si possa 
rendere viva e dinamica perfino la 
trigonometria, condannata ingiu¬ 
stamente ad essere considerata 
una delle parti più aride dei pro¬ 
grammi scolastici e ad essere uti¬ 
lizzata soltanto per la soluzione di 
assai improbabili problemi geome¬ 
trici. 



X = Xo, X= 2 tt +Xo, X= 4tt +X 0 
ecc. cioè, come si dice, la funzione 

Y = SIN(X) è periodica con periodo 
2ir. 

La funzione sinusoide si generaliz¬ 
za nella forma: 

Y = A. SIN(X + F) 

dove A è detta ampiezza ed F fase. 
In questo caso, chiaramente, i va¬ 
lori di Y varieranno tra -A ed A. 
Infine, se si condidera la funzione 
<1)Y = A»SIN(K*X+F) 
si può dimostrare che il periodo 
della sinusoide è 2 tt/K. 

Il programma che segue (per il 
CBM 64 con SIMON'S BASIC, ma 
facilmente adattabile ad altri cal¬ 
colatori) traccia, sulla stessa 
schermata, un numero arbitrario di 
sinusoidi del tipo (1), permettendo 
di scegliere l’origine del sistema di 
riferimento, con l'asse delle ordi¬ 
nate orientato verso l’alto, e con le 
unità di misura degli assi automati- 




N = 3 x*=16* Y* = 1«0 

A (1 )= 2 K=(l )= 1 F(1)=0 

F '° 4 A (2)= 1 K=(2)=1 F(2)=0 

A (3)=^ K=(3)=1 F(3}=0 

l) Y= 2 sin x 2) y= sin x 3) y= I sin x 
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SCUOLA E COMPUTER 


INPUT 


INPUT 


camente dimensionate in modo da 
contenere tutte le sinusoidi alme¬ 
no per un periodo. 


READY. 

100 PRINT “ ■ PRINT 
110 INPUT “NUMERO DI SINU¬ 
SOIDI = "; N: PRINT 
120 DIM A(N), K(N), F(N) 

130 For I = 1 TO N 
140 PRINT “A(“; l;”) = M 
A(l) 

150 PRINT "K("; |; M ) = 

K(l) 

160 PRINT “F(“; l;”) = M ;: INPUT 

F(l) 

165 PRINT 
170 NEXTI 

200 AMAX = 0: KM IN = 100 
210 FOR I = 1 TO N 
220 IF A(l) = >AMAX THEN 

AMAX = A(l) 

230 IF K(l) = < KMIN THEN 
KMIN = K(l) 

240 NEXTI 

250 PRINT“AMPIEZZA MASSI¬ 
MA = "; AMAX 

255 TM = 2*7t/KMIN 

256 SX = TM/320 

257 SY = 100/AMAX 
260 PRINT “PERIODO 
MO = TM: PRINT 

262 PRINT “SX = SX,“ SY = “; 
SY: PRINT 

265 INPUT “X0 = ”;X0: INPUT" 
Y0 = Y0 


e torvi •- n■'< ■■■■ 

^ ryjfi Jf 

se 


270 PRINT “PREMI UN TASTO 
PER CONTINUARE" 

280 GET A$: IF A$" “ GOTO280 
300 HIRESO.I 

305 LINE O.20Q-Y0, 

319.20Q-Y0.1 

306 LINEX0.0.X0 ,199,1 
310 FOR I = 1 TO N 

330 FOR X = 0 TO 319 

335 Y = 200-(SY*A(l)*SIN(SX*- 
K(l)*X-X0)+F(l)) + Y0) 

336 IF Y< 0 OR Y>199 GOTO 
350 

340 PLOTX.Y.1 
350 NEXTX 
360 NEXTI 
370 PAUSE 10 

READY. 


MASSI- Significato delle istruzioni 


100 cancella lo schermo; 

110 chiede il numero (N) di si¬ 

nusoidi del tipo Y = A 
SIN(KX-i-F) che si inten- 



N = 3 x 9 = 16 9 V •= 1 99 


3 6 


A(l) = 1 
A (2) = 1 
A (3) ,1 

Y = sin x j-TT 2) Y= si 


K p)= 1 
K (2) , 1 
A 13) = 1 

3)Y 


n x 



120 

170 

200 

255 

256 

262 

265 


270 

280 

300 


305 

306 

310 

360 


370 


de far disegnare; 

sono richiesti i valori 
dell’ampiezza (A(l)), della 
pulsazione (K(l)) e della 
fase (F(l)) per ciascuna 
sinusoide; 

viene calcolato il valore 
della massima ampiezza 
(AMAX) e del massimo 
periodo (TM) tra le sinu¬ 
soidi inserite; 

sono calcolati i “fondo 
scala”; 

sono richieste le coordi¬ 
nate dell’prigine (Xf2K)3ltel 
sistema del calcolatore; 

ciclo d’attesa; 

passaggio all’alta risolu¬ 
zione 

disegna gli assi cartesia¬ 
ni; 

è il nucleo del program¬ 
ma: calcola i valori di Y 

(335) , controlla che tali 
valori siano accettabili 

(336) e li rappresenta sul¬ 
lo schermo (340); 

lascia l’immagine sullo 
schermo per 10 secondi. 


Si consiglia, per poter comprende¬ 
re meglio il comportamento delle 
funzioni, di far variare un parame¬ 
tro per volta, cioè prima solo le am¬ 
piezze, poi solo i periodi, poi solo le 
fasi. 

Valori consigliati per i vari parame¬ 
tri sono riportati nelle figure 4-5-6. 
Naturalmente, dopo aver ben com¬ 
preso il meccanismo, ci si può 
sbizzarire in numerosissime va¬ 
rianti. 

Può essere utile ricordare che la 
fase è un angolo e che va misurata 
in radianti. 

Il passaggio da gradi sessagesi¬ 
mali a radianti è dato dalla formula: 


XRAD:XGR = r. 180 cioè 
XGR 3 tt 


XRAD- 


1RO 


/ 




























CBM64 





Commodore 13! 


Come molti lettori sapranno, lo sviluppo matematico integrale di un sistema di Totocalcio prevede la 
compilazione di 2h x2k colonne, dove "h"rappresenta il numero di doppie e "k" quello delle triple. 
Ad esempio, un sistema in cui è presente una sola doppia è costituito aa due colonne differenti unica¬ 
mente nel risultato per il quale è appunto prevista la aoppia, mentre un sistema comprendente tre dop¬ 
pie e due triple si sviluppa in 72 colonne. 

È ovvio che aumentando il numero di doppie o, ancora di piu, di triple, aumentano le probabilità di 
"fare" 13, ma è altrettanto vero che ciò è piu che bilanciato dall'aumento vertiginoso del numero di 
colonne e quindi del costo della giocata. 

Uno dei metodi piu diffusi per limitare la spesa, mantenendo il piu possibile elevate le probabilità di 
vincita, è quello di selezionare le colonne del sistema integrale da giocare in base a criteri statistici, 
non giocando per esempio quelle contenenti distribuzioni o sequenze di segni poco probabili come co¬ 
lonne con dieci segni "X" oppure con otto segni "1 " consecutivi. 

Questo programma sfruttando le elvate capacità di calcolo del CBM 64, permette di sviluppare un si¬ 
stema in modo 'ridotto' in breve tempo, fornendo la stampa su video e/o su carta - nel caso si possie¬ 
da una stampante - delle colonne selezionate, ed il costo totale della giocata. 

Ovviamente la schedina di 'base'deve essere compilata dal lettore: il computer infatti si limita ad ese¬ 
guire centinaia o migliaia di noiosi confronti (ilprogramma permette di 'manipolare' fino a 1.000 co¬ 
lonne) fra le colonne elaborate ai risultati introdotti dall'utente. 

Una volta inseriti i tredicipronostici - sotto forma di INPUT come stringhe: 1, 1X2, 12, ecc. è possibile 
accettare i parametri di selezione (max numero di 'V, 'X' '2'e loro sequenza consecutiva) già previsti 
o modificarli in base alle proprie previsioni. Fatto questo non rimane che attendere il termine dell'ela¬ 
borazione per avere le colonne 'valide ' visualizzate. 

Naturalmente aumentando il numero delle doppie e/o delle triple inserite aumenta il tempo necessario 
per l'elaborazione. 


Poiché il programma non contiene routines in linguaggio macchina o particolari istruzioni grafiche, può 
essere adattato facilmente a qualsiasi home - computer eliminando la subroutine alla linea 2140 ed i co¬ 
mandi di spostamento del cursore presenti in alcune strinahe. 

È richiesta una RAM di lameno 16K ed uno schermo - video di minimo 20 righe. 

Buona fortuna! 

N.B. Durante l'introduzione dei pronostici il sistema viene visualizzato secondo il consueto sviluppo verti¬ 
cale, seguendo la struttura della schedina del Totocalcio. Le colonne selezionate verranno invece visua¬ 
lizzate ed eventualmente stampate in senso orizzontale con i tredici risulati posti dunque in fila anziché in 
colonna. 

Struttura programma 
Linee 


20 richiamo subrotine stampa copertina 

40 - 10 - 

0 inizializzazione: azzeramento dei contatori, definizione e dimensionamento delle principali 

variabili 

110 - 16 - 

0 introduzione pronostici: compilazione sistema 

170 - 28 - 

0 normalizzazione e controllo dei risulati pronosticati 

290 - 46 - 

0 display dei parametri di default per lo sviluppo del sistema 
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470 - 70- 

0 introduzione parametri modificati 

710-82- 

0 conteggio dei segni per ogni colonna 

830 - 88- 

0 memorizzazione colonna 

890- 10- 

30 controllo dei segni consecutivi per ogni colonna. 


6 REM ********************* 

8 REM *** *** 

10 REM *** COMMODORE 13! *** 

12 REM *** *** 

13 REM *** DI *** 

14 REM *** *** 

15 REM *** MAURO CIFRNI *** 

16 REM *** *** 

18 REM ********************* 

20 G0SUB2140 

30 : 

40 REM***INIZIALIZZAZIONE*** 

41 : 

50 PRINT'TJ" :U=1 : K=0 : F=0 : H1=0 : H2=0 : S=0 : IN=0 
60 B$="":C$="" : SP$=" 

78 DIMfì(13/3),C<2>, T<13>, M$<13,3),DD<13>,R<2) 

80 FORI = 1TO13 •' T ■' I > = 1 : NEXT 

90 FOR I = 1 TO 13 : FOR J-1T03 : t1$ < I, J > = " " : NEXT J, I 
100 : 

110 REM***INTRODUZIONE DATI*** 

120 : 



H 


D <: 5 >, R$ < 2 >,S$ <1000) 


130 PRINT"niNTRGDUCI I DATI " 

140 FORI=ITO13 

150 PRINTTABC 18) ITREK22) ; : INPUT" Zft, 1,21" ; A$ 

160 : 

170 REM***CONTROLLO INPUT*** 

180 : 

190 MKf>-L€N<fl*> 

200 IFDD<IK10RDD<I)>3THENPRINT":T+SP$+"n": GOTO150 
210 F0R.J=1T0DD( I > 

220 B$=MID$(A$,J,1) 

230 IFB$= ,, X"THENA<I,J)=0=M*<I, J)="X" : GOTO270 
240 I FB$="1"THENA<1,J >=1 :M$<I,J) = "1":GOTO270 
250 IFB$="2"THENR<I,J)=2: M$< I,J> = "2"•6OTO270 
260 DD<I> =0 : M$<1,1> = " ":M*KI,2>=" ":M$<1,3> = " ":GOTO20O 
270 NEXT J,I 
280 : 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


REM***DISPLAV PARAMETRI*** 

PRINT 

PR I NT "IL NUMERO MASSIMO DI 'X'. 
PRINT"E" 8 E DI 'X' CONSECUTIVI 
PRINT 

PRINT"IL NUMERO MASSIMO DI '1' 
PRINT "E" 8 E DI ' t' CONSECUTIVI 
PRINT 

PRINT"IL NUMERO MASSIMO DI '2' 
PRINT"E" 3 E DI '2' CONSECUTIVI 


PREVISTO" 
E' 3." 

PREVISTO" 
E-‘ 3. " 

PREVISTO" 
E' 2." 
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400 PRI NT " Slv'UO I CAMBIARE TALI PARAMETRI?" <S/N>" 

410 GETC$ 

420 IFC$="S"THEN490 

430 IFC$<>"N"THEN410 , _ 

440 D<0)=4 : D<1)=4 : D(2) s 3 : D<3)=14-D(0) : D<4)=14-D<1) : D<5)=14-D< 
453 R<0) s 8 : R<1)=8 : R<2)-3 : R$<0)="XXXX" : R$<1)="1111" : R$<2)="222 

460 : 


2 ) 

M : GOTO?10 


470 REM*#*OPZIONE MODIFICA PRRRMETRI*** 


480 : 

490 PRINT"3IL NUMERO DI 'X'.'l'X 2 ' E' COMPRESO" 
500 PRINT"TRfì O E 13 <ESTREMI INCLUSI>" 


'X'";R<0> : IFR<0)<0ORR03 ) > 13THENRX= 1 
' i ' •• ; r a ;• : i fr a > coorr a > :> i 3thenax=2 
'2'";R < 2): IFR< 2 )COORR< 2 » 13THENAX=3 


GOTO690 

G0T0690 

G0T0690 


510 PRINT : PRINT 
520 INPUT"NUMERO MAX DI 
530 INPUT"NUMERO MRX DI 
540 INPUT"NUMERO MRX DI 
550 PRINT 

560 PRINT"IL NUMERO DI 'X','1','2' CONSECUTIVI E'" 

570 PRINT"COMPRESO TRR 1 E 13 <ESTREMI INCLUSI)" 

590 INPUT"NUMERO MRX DI 'X" CONSECUTIVI "D(0> : D<0)=D<0>+1 : D<3)*14-D<0> 
600 IFD < 0)C20RD C 0 > >14THENRX=4:G0T0690 
610 FORI=1TOD<0) : R$<0)=R$(0) + "X" ; NEXT 

620 INPUT"NUMERO MRX DI 'l' CONSECUTIVI";D<1> : DC1)=D<1> + l : D<4)=14-D<1> 
630 IFD<1X20RDC1)>14THENAX=5:G0T0690 
640 F0RI=1T0D<1) R$<1)=R*(1>+"1":NEXT 

650 INPUT"NUMERO MRX DI '2' CONSECUTIVI" ; D(2> : D<2)=D<2)+1 : D<5) = 14-D<2.> 
660 IFD < 2)C20RD<2 »14THENRX=6:GOTO690 
670 F0RI=1T0D<2> : R$(2)-R$C2)+"2" : NEXT 


630 GOTO720 

690 PRINT"n"+SP$+"M" 

700 ONRXGOTO520.530.540.590.620.650 


710 PRINT "380. K. ■" 

720 PRINT :PRINT"RTTENDERE.PREGO..." 

730 PRINT"STO SVILUPPANDO IL SISTEMA" 

740 PRINT"MMINTANTO PUOI PENSARE fì QUELLO CHE POTRAI" 

750 PRINT"FARE CON I SOLDI DELLA VINCITA!" 

760 FORICIT013 : Z(R( I.T<I) ))=Z<R< I.T<I> > )+IJ : NEXT 
778 : 

780 REM***SELEZIONE SEGNI*** 

790 : 

800 IFC<0)>R<0)ORC<1»R<1)ORC<2)>R<2>THEN1020 
810 K=K+1 
820 : 

830 REM***COMPILRZIONE COLONNA*** 

840 : 

858 S$<K>«M$<1,T<1>>+M$<2,T<2>>+M$<3.T<3>>+M*K4,T<4)>+M$<5,T<5)> 

860 S$(K)=S$<K)+M$(6. T(6)>+M$<7. T<7) >+M$<8. T<8) )+M$<9U T<9) ) 

870 S$(K>“S$GO+M$( 10. T< 10) )+M$< 11 .• T< 11 > >+M$( 12. T< 12))+M$( 13. T< 13) ) 
880 : 

890 REM***SELEZIONE SEGNI CONSECUTIVI*** 

900 : 

910 F0RI=UT0DC3> 

920 IFMID* < S$ ( K ). I. D< 0 >. ) =R* < 0 > THENK=K-U : F=U : I=D < 3 > 

938 NEXT :IFF=IJTHEN 1020 
940 F0RI=UT0D(4> 

950 I FM I D$ < S $ (K).LD(l)) =R t < 1 > THENK=K-U : F=IJ : I =D < 4 > 

960 NEXT-IFF=UTHEN1020 
970 F0RI=IJT0D<5) 

980 IFMID$ < Sf CK >. I. D < 2 ) > =R$ < 2 > THENK=K-IJ • F=U : I =D < 5) 
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390 NEXT : IFF=UTHEN1020 
1000 H=H+1 

1010 S$<H > =8$<K> : IFH=1000THENS=1 :GOSUB1588 
1020 C < 0>=0 :C <1>=0 : C <2> =8 :F=0 
1030 : 

1040 REM***CONFRONTO TRR COLONNE**# 

1050 : 

1060 IFDD< 1 > =IJTHEN 1090 

1070 IFT<1KDIK 1>THENT<1)=T<1>+U:G0T0768 
1080 T <1> =U 

1090 IFDD(2)«UTHEN1120 

1100 IFT(2)<DD<2> THENT<2)=T<2>+U:GOTO760 
1118 T<2>=U 

1120 IFDD<3)=UTHEN1150 

1130 IFT <3)CDD<3>THENT <3 > =T <3> +U : GOTO760 

1140 T ( 3 =IJ 

1158 IFDD(4 >=UTHEN1180 

1160 IFT <4)CDD<4)THENT< 4 > =T <4 >+U:GOTO760 
1170 T < 4 ) =IJ 

1180 IFDD <5> *UTHEN1210 

1198 I FT <5 > <DD (. 5 > THENT <5 > =T < 5 > +U = GOTO760 
1200 T < 5 )=U 

1210 IFDD <6)=UTHEN1248 

1228 IFT <6 ><DD<6 > THENT(6> =T <6 > +U : G0TQ768 
1230 T<6>=U 

1248 IFDD <7 >=MTHEN1270 

1258 IFT<7><DD<7>THENT<7>=T<7>+U•G0T0768 

1260 T < 7)=U 

1270 IFDD< 8 >=UTHEN1300 

1288 IFT<8><DD < 8>THENT<8> =T<8> +IJ : G0T0768 
1290 T<8>=U 

1300 IFDD<9>=UTHEN1338 

1310 IFT<9><DD<9)THENT<9> =T <9>+U:GOTO760 
1320 T < 9 > =U 

1330 IFDD <18 > =UTHEN1368 

1340 IFT<10> CDD < 10 > THENT < 18 > =T < 18 > +IJ : G0T0768 
1350 T < 18 > =IJ 
1360 IFDD(11)=UTHEN1398 

1378 IFT(ll)CDD<11)THENT<11> =T<11>+U:G0TO768 

1380 T<11>=U 

1398 IFDD <12 > =UTHEN1428 

1400 IFT<12>CDD<12)THENT<12>=T<12>+U G0T0768 

1418 T<12)=U 

1428 IFDD(13)=UTHEN1440 

1438 IFT<13)CDD<13)THENT<13)=T<13>+U : GOTO760 

1448 GOSUB1588 

1450 IFC$="N"THEN1530 

1460 0PEN3.4 

1465 GOSUB2270 

1470 IFH1=H2THEN1518 

1488 PRINT# 3,"ATTENZIONE" 

1490 PRINT# 3,"N.COL.STRM.";H2 

1500 PRINT# 3-/ "N. COL. CRLC. " HI : GOTO 1528 

1510 PRINT# 3 , "N.TOTRLE COL.";Hi 
1515 PRINT# 3,"COSTO L. M ;H1*CX 
1528 CL0SE3 

1538 PRINT :PRI NT"H5FINES" 

1540 END 
1550 : 
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1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1726 
1730 
1740 
1750 
1760 
1778 
1780 
1798 
1800 
1810 
4820 
1830 
1840 
1850 
1360 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 

1959 

1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
207.0 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


REM###SUBRQUT. STAMPA### 


H1=H1+H 

IFS=0THEN1640 

PRINT"niL PROGRAMMA NON HR ANCORA FINITO IH" 

FRINT"SELEZIONARE TUTTE LE COLONNE."=FRINT 

FRINT"LE COLONNE IN MEMORIA SONO ";H 

FRINT"LE VUOI STAMPARE?<S/N)" : PRINT : FRINT : GOTO1690 

PRINT'TJIL PROGRAMMA HA FINITO DI SELEZIONARE" 

FRINT"TUTTE LE COLONNE." : PRINT 

FRI NT "LE COLONNE IN MEMORIA SONO"H 

FRINT"LE VUOI STAMPARE?<S/N>":PRINT :PRINT 

PRINT"IL TOTALE DELLE COLONNE E y H JH1 


GETC# 

IFC$="N"THENGOSUE2000 : GOTO1960 

IFC$O"S"THEN1690 

IFIN=1THEN1880 

OPEN1 t 4 

F0RJ=UT03 

PRINT# 1 


FORCUTO 13 
print# i,m$<i,,d; 

NEXTI,J 


PRINT# 

PRINT# 

PRINT# 

PRINT# 

PRINT# 

PRINT# 

PRINT# 

PRINT# 


1 

1, 

1/ 

1, 

1, 

1, 

1> 

1 


PRINT# 1 


N. MAX 

DI 

-x y ' 

' ; R <:; 0 > 


N. MAX 

DI 

'V' 

"; r< 1> 


N. MAX 

DI 

/ 2 / 1 

";r<2> 


N. MAX 

DI 

'Y/ 

cons. ";d<0>- 

-u 

N. MAX 

DI 

'X' 

CONS. MKl)- 

-u 

N. MAX 

DI 

'2' 

cons. m ;d<2>- 

-u 


CL03E1:IN=1 
IFH=0THEN1970 
0PEN2 1 4 


FORI=UTOH 
PRINT# 2,S$<I) 
H2=H2+1 
NEXT 


PRINT# 2 


CL0SE2 
K=U : 8=0 
RETURN 


REM###OPZIONE DISPLAY VIDEO### 

PRINT"n/UOI VEDERE LE COLONNE SU VIDEO?<S/N>" 

GETR$:IFA$=""THEN2020 
IFAT="N"THENRETURN 
IF A$<> " S " THEN2020 
D=INT(H/20+1> : M=0 

L=20#M : PRI NT "3" : FORI = < 1+L )TO < 20+L > : PRI NTS$(I> : NEXT 
M=M+1 

PRINT"W?FER PROSEGUIRE PREMI UN TASTO" 

GETA$:IFA$=""THEN2090 
I FM<DTHEN2'060 
GOSUE2290 
RETURN 

REM###STAMPA COPERTINA### 









1 lig#' 

'LI 5 


CBM64 


2150 : 

21 60 0=0 '• PRI NT " 1" ■ PO KE53280,0 : P0KE53281, 0 
2178 pr i ht " mmmam *spc < 12 > •• ai X21X21X21X21 x«" 

2100 PRINT"Jfl"SPC<12 >"a COMMODORE 13!5" 

2190 PRINT"M"SPC<12 >"aiX21X21X21X21XI" 

2200 FORT =1TO100 : NEXT 

2210 pr i nt " mmmmrn'' spc < i 2 > •• a< 2 1 X 21 X 21 X 21 X 21 " 

2220 PRINT"M"SPC<12>"a COMMODORE 13!S" 

2230 PR I NT " W SPC02)" tìK2 1X21X21X21X2S" 

2240 FORT*1TO100 :NEXT:Q=Q+1 : IFQC20THEN2170 
2250 RETURN 
2260 : 

2270 REM**#SUBROUTINE CALCOLO COSTO**# 

2230 : 

2290 PRINT'^av'IJOI CALCOLARE IL COSTO DEL SISTEMR?" 
2300 PRINT :PRINT" a< S/N) ■" 

2310 GETR$ : IFR$=""THEN2310 
2320 I FR$= M N " TNENRETIJRN 
2330 IF A*0 " S"THEN231O 

2340 PR I NT " : INPUT "QUANTO COSTR IJNR COLONNA" ; CV. 

2350 PRINT"MWMIL SISTEMA COSTERÀ' L."JH#CX 
2360 PRINT"flMPMftWHWftPER PROSEGUIRE PREMI UN TASTO" 
2370 GETR*: IFA**""THEN2370 
2330 RETURN 

READV. 


RERDV. 
























Totocalcio 


00 






Un sistema pseudocasuale per realizzare finalmente i vostri sogni di vincita al totocalcio. 

Il programma elabora fino a 30 colonne. 

Inizialmente bisogna inserire il numero di colonne che si vuole sviluppare. 

Poi', per ogni partita, indicare in percentuale, il valore da assegnare agli 1 e agli X. 

Il valore per i 2 è calcolato automaticamente. 

Per ogni partita il computer provvede ad elaborare un numero casuale che viene confrontato con i dati 
inseriti; se c'è discordanza il segno prescelto è casuale. 

Dato che le colonne sono 30, accade che solo poche volte il risultato sia casuale, perché, in linea gene¬ 
rale, le percentuali sono abbastanza rispettate. 

Il computer aggiunge solo quel pizzico di imprevedibilità che spesso si manifesta proprio in quelle 
partite definite "sicure'. 

Chi è in possesso della stampate plotter può avere le schedine stampate su carta, chi non ne è in pos¬ 
sesso deve togliere l'istruzione HCOPYpresente nel listato alla riga 584. 

Ricordiamo che elaborando 30 colonne, i tempi di esecuzione ael programma si allungano notevol¬ 
mente, in particolar modo in fase di introduzione delle percentuali. 


5 CLS 
10 COLORI 

15 REM «TOTOCALCIO# 

20 Din HC390} 

30 Din UETC100D 
40 K=1 

50 GOSUB 600 
70 CLS 

80 COLOR 3, 1 

90 PRINT "PRONOSTICI TOTOCALCIO" 
100 PRINT " 

110 PRINT "N. NAX COLONNE = 30" 
120 INPUT "N. COLONNE" ;C0 
130 PRINT 

150 IF CO <=30 THEN 210 

160 PRINT "NUnERO TROPPO ALTO" 

170 FOR T=1 TO 700-NEXT T 

180 CLS 

190 GOTO 110 

210 FOR P=1 TO 13 

220 PRINT "PARTITA" ;P 

225- PRINT " 1 X IN * " 

230 INPUT U,I 

260 IF U+I<=100 THEN 290 

280 GOTO 220 

290 FOR L0=1 TO CO 

300 PRO=INTCRNDC13*1003+1 

310 FOR L=1 TO 100 

320 IF UETCL3=PR0 THEN 340 

330 NEXT L 

340 IFL>U+I THEN 380 
350 IF LOJ THEN 400 
360 HCK3=0 
370 GOTO 410 
380 HCK3=2 
390 GOTO 410 


400 HCK3 = 1 
410 K=K+1 
420 NEXT LO 
430 NEXT P 
440 CLS 

450 PRINT "ECCO LA SCHEDINA 292" 

460 PRINT " 

465 PRINT :PRINT 
480 FOR PRO=1 TO CO*13 
490 IF HCPRO3=0 THEN 530 
500 IF HCPR03=1 THEN 550 
510 PRINT "2"; 

520 GOTO 560 
530 PRINT "X"; 

540 GOTO 560 
550 PRINT "1"; 

560 IF INTCPRO/CO3 OPRO/CO THEN 580 
570 PRINT 

580 NEXT PRO 

581 PRINT :PRINT 

584 HCOPY 

585 PRINT " 

586 X$=INKEY$ 

587 IFX$="" THEN 586 

588 IF X*="S" THEN 590 

589 GOTO 50 

590 END 

600 FOR 1=1 TO 100 
620 UETCI3=I 
630 NEXT I 

640 FOR 1=100 TO 2 STEP -1 

650 J=INTCRNDC13*13 + 1 

660 N=UETCI3 

670 UETC13=UETCJ 3 

680 UETCJ 3=N 

690 NEXT I 

700 RETURN 


IW 












TEXAS TI 99/4A 



Agenda Telefonica 


\ L ' A 



I possessori del TEXAS sanno bene come sia lenta e noiosa la gestione dei files con il proprio compu¬ 
ter. 

Tra l'altro l'impossibilità di creare files relativi con il registratore e la bassa qualità del cavo d'inter¬ 
facciamento fornito a corredo del computer,possono creare non pochi inconvenienti. 

A tal proposito scanaliamo a chi abbia difficoltà a caricare i programmi con il proprio registratore, 
che il cavo d'interfacciamento non è, come si dovrebbe supporre, del tipo schermato, ma è un normale 
cavo a più conduttori. 

Fare attenzione quindi, alle interferenze del modulatore PAL TV, e a tenere lontano il cavo dallo 
schermo della televisione e dai cavi che alimentano il computer e la televisione. 

II programma, che funziona in un solo senso, è molto veloce nella sua esecuzione e legge da un blocco 
di DA TA le informazioni che poi visualizza sullo schermo. 

Dopo aver avviato il programma, bisogna introdurre il nominativo della persona di cui si vuol cono¬ 
scere il numero telefonico e l'indirizzo. 

Il computer visualizzerà sullo schermo il nome della persona e tutti i dati richiesti. 

Nel caso che ci fossero dei casi di omonimia, verranno visualizzati tutti i nominativi interessati. 

Si può introdurre il nominativo per esteso oppure ci si può limitare alla prima parte, o anche alla sola 
iniziale. 

Es: nominativo ? P. 

Sullo schermo comparivaranno tutti i nominativi che iniziano con P. 

Pasauale.... 

Paolo... 

Piero... 

ATTENZIONE. 

Abbiamo detto che il programma funziona in un solo senso perché è praticamente impossibile immet¬ 
tere nuovi nominativi da programma. L'unico modo possibile è quello di aggiungere una riga al listato 
con una nuova istruzione DA TA. 

Sullo schermo, quando digitate le istruzioni DA TA fate in modo che l'iniziale del nominativo, dell'indi¬ 
rizzo e del numero telefonico siano incolonnati. 

Digitate, dunque il programma cosi com'è, lasciando lo stesso numero di spazi che appaiono nel lista¬ 
to originale e guardate poi lo schermo TV, capirete da soli come funziona l'incolonnamento. 

Inoltre quando aggiungete le righe dei DA TA, la numerazione progressiva deve essere di 1/0 in 1/0 
ed alla fine provvedete a sostituire nella riga 1000, quella che contiene la prima istruzione DA TA se¬ 
guita da un numero, che è quello dell'ultima riga del listato. 

Esempio, 

Se l'ultima riga del listato è la numero 1/09/0 l'istruzione alla riga 1/O/O/0 sarà: 

1 /0/0/0 DA TA 1 /09/0 in cui appunto per 1 /09/0 si intende l'ultima riga del programma. 

Dopo aver controllato il funzionamento del programma registratelo sul nastro. 

Nel caricare il programma, caricherete automaticamente tutti i dati che vi interessano senza che voi 
dobbiate aspettare, come avviene con i files, che il computer legga tramite registratore il file del nomi¬ 
nativo che richiedete. 

Non rimane che augurarvi buon lavoro e data la estrema semplicità costitutiva del programma non 
sarà certo difficile imparare ad usarlo e adattarlo alle esigenze più svariate. 
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TEXAS TI 99/4A 




100 CALL CLEAR 
110 CALL SCREEN(10) 

120 PRINT "«»====>*»«==*==*==3===*==»=»i===i==" i "o 
130 PRINT "o PER TEXAS TI 99/4A o":"ti 

140 PRINT "ti ALFABETICA DEI DATI 
150 PRINT s s s s : : s : 

160 PRINT TAB(10);"premi un tasto" 

170 GOSUB 470 
180 CALL CLEAR 

190 IF K=35 THEN 200 ELSE 210 
200 END 

210 CALL CLEAR 

220 PRINT "RICERCA IN MEMORIA" 

230 PRINT : : 

240 FOR K=1 TO 28 
250 PRINT "-"| 

260 NEXT K 
270 W*="" 

280 PRINT :i:s: 

290 PRINT TAB(IO);"# PER FINIRE":::: 

300 RESTORE 
310 READ NN 

320 PRINT "QUALI SONO IL COGNOME E IL" 

330 INPUT "NOME ? ":N* 

340 IF ASC(N*)=35 THEN 200 
350 CALL CLEAR 
360 READ N,W* 

370 IF N=NN THEN 380 ELSE 390 
380 FF=*1 

390 IF N*=SEG$(W$,1,LEN(N$>)THEN 400 ELSE 410 
400 GOSUB 500 

410 IF FF-1 THEN 420 ELSE 460 
420 CALL CLEAR 
430 GOSUB 580 
440 FF=0 
450 GOTO 210 
460 GOTO 360 
470 CALL KEY (O, K, S ) 

480 IF S=0 THEN 470 
490 RETURN 
500 CALL SCREEN(15) 

510 PRINT : : 

520 PRINT SEG$(W*,1,27) 

530 PRINT SEG$<W$,29,27) 

540 PRINT SEG*<W$,57,27) 

550 FOR K=1 TO 28 
560 PRINT 
570 NEXT K 

580 IF FF=1 THEN 590 ELSE 600 
590 PRINT : :"FINE DATI MEMORIZZATI":: 

600 PRINT : :"premi un tasto" 

610 GOSUB 470 


AGENDA TELEFONICA 
CON RICERCA 


ò" 

ci" 



620 

RETURN 



900 

REM 

******************* 

910 

REM 

*** 


*** 

920 

REM 

*** 

ATTENZIONE ! 

*** 

930 

REM 

*** 

1eggere 

*** 

940 

REM 

*** 

con 

**# 

950 

REM 

*** 

molta cura 

*** 

960 

REM 

*** 

le note 

*** 

970 

REM 

*** 

espiicative 

*** 

980 

REM 

******************* 


1000 DATA 1030 

1010 DATA 1010,REDAZIONE di LIST 

1020 DATA 1020,ROSSI MARIO 

1030 DATA 1030,PRONTO RAFFAELLA?!! 


VIA FLAVIO STILICONE 111 7665495 

VIA SISTINA 18 123456 

VIA TEULADA 3139 
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ZX Spectrum 48 K 


Legge di Ohm 

Molteplici le possibilità di applicazione di questo programma, utile agli esperti ed ai principianti. 



1 CLS 

2 PRINT BRIGHT 1; PLR5H 1 ; RT 
10,5;"FERMO IL REGISTRATORE"' 

3 PPUSE 150: CLS 

4 PRINT BRIGHT 1 ; RT 10,0; "-- 
LEGGE DI OHM --": PAUSE 150: CL5 

e REM 

7 REM Legge di Oh» 
e REM 

10 PRINT RT 0,10; BRIGHT 1;”- 
MENU ' -** 


11 PRINT RT 2,6; BRIGHT 
Resistor^ d» caduta ’* 

12 PRINT RT 4,6, BRIGHT l;“2> 
Calcolo di R di carico " 

13 PRINT RT 6,6, BRIGHT 1;**3J 
Ca icolo di U ** 

14 PRINT RT B,6; BRIGHT 1;"4> 
Calcolo di I •• 

15 PRINT RT 10,6; BRIGHT 1; 
Potenza elettrica ** 

16 PRINT RT 12,6; BRIGHT 1;"6) 
Intensità' di corrente 
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17 

PRINT RT 14,6; BRIGHT 

l; 

"7) 

T 

ens 

ione applicata " 





30 

IF 

INKEY$="1" THEN 

GO 

TO 

21 

0 

4-0 

IF 

INKEY %="2” THEN 

GO 

TO 

76 

0 

a 

42 

IF 

INKEY$="3" THEN 

GO 

TO 

31 

43 

IF 

INKEY*="4" THEN 

GO 

TO 

44 


44 

IF 

INKEY > = "5" THEN 

GO 

TO 

60 

0 







45 

IF 

INKEY $ = "6 " THEN 

GO 

TO 

87 

0 

46 

IF 

INKEY $ = "7" THEN 

GO 

TO 

97 

5 

50 

GO 

TO 10 





76 

CLS 






77 

REM 






78 

REM 

Secondo progr- 





79 

REM 






80 

input ••Tensione a 

, *•« 

Dor 

ren 

t e 

/ 

b 






90 

CLS 






95 

IF 

a =0 RND b =0 THEN GO TO 1 

0 








96 

IF 

a <0 OR b <0 THEN 

CLS : 

P R 


INT RT 12/2; BRIGHT 1/ FLR5H 1; ” 
yalor j negativi non validi**: GO 
TO 80 

97 PRINT RT 3,12;"In un circui 
to";RT 4-/12; "con tensione -9- e" 
;RT 5,12;"corrente -0- il";RT 6. 
12; "cari co presenta " ; BRIGHT 1; 

FLR5H l;"-0-" 

100 PRINT RT 1/7;"Legge di Oh» 
BRIGHT 1 ; "R = V.'I ’ : PLOT 10,1 
55: DRRU 220/0: DRRU 0/15: DRRLI 
-220/0 DRRU 0/-3S: DRRU 60.0: D 
RRU 0/20 

105 PRINT BRIGHT 1;RT 3,2;"0/0 
MENU'” 

110 CIRCLE 72/50/15: PLOT 72/15 
: DRRU 0,20: PLOT 72,15: DRRU 86 
,0: DRRU 0,20: DRRU 5/5: DRRU -5 
,5 : DRRU 5,5: DRRU -5,5: DRRU S, 
5 : DRRU -5,5 

120 PRINT RT 15,8;"Ge",RT 11,15 
;"R"; BRIGHT 1; FLR5H 1; ;RT 15,2 

1 ; "R" 

130 PLOT 72/65: DRRU 0.20: DRRU 

15,0: DRRU 30,0: DRRU 0,5: DRRU 

15,0: DRRU 0,-15: DRRU -15,0: D 
RRU 0,10 

14-0 PLOT 133,85: DRRU 25,0: DRR 
U 0,-20 


158 REM 

159 REM Calcolo R 

160 REM 

170 PRINT BRIGHT 1;RT 8,11;"R= 

" ; a sb, ” Oh»" 

180 PRINT BRIGHT 1.RT 21.0;"U» 

” ; a, ** volt". PRINT BRIGHT 1 ; RT 2 
1.20;"R= b;" amper" 

200 GO TO 80 

210 CLS 

211 REM 

212 REM P.ri»o progr. 

213 REM 

220 INPUT "Tensione di aliaenta 
z ione 7 ";a 

221 INPUT "Tensione d'uscita 7 

"; b 

222 input "Corrente 7 c 
225 CLS 

230 IF^a =0 RND b-0 RND C=0 THEN 
GO TO 10 

235 IF b > a THEN CLS : PRINT BRI 
!HT 1, FLR5H 1, RT 10 



GO TO 220 

236 IF a <0 OR b < 0 OR C<0 THEN C 
LS : PRINT RT 10,2; BRIGHT 1;"Ua 
lori neoativi non validi": GO TO 

220 

24.0 PRINT RT 0,7; "Pesistore di 
caduta" 

24-1 PLOT 250,93: DRRU -60,0- DR 
RU 0,19: DRRU -4.2,0: DRRU 0,5: D 


RRU 122,0: DRRU 0,-24-: PRINT RT 
8,22;"Uàlori";RT 9,22,"impostati 


24-5 PLOT 0,165: DRRU 220,0: PLO 
T 0.14-5: DRRU 120,0: DRRU 0,20 
24-6 PLOT 0,165: DRRU 0,-20 
24-7 PLOT 220,165: DRRU 0,6; DRR 
U -8,0; PLOT 0,165: DRRU 0.6: DP 

RU 50,0 _ 

250PRINT RT 2,2; BRIGHT 1;"ffi 

255 CIRCLE 72,50,15: PLOT 72,15 
DRRU 0,20: PLOT 72,15: DRRU 86 

,0; DRRU 0,25 

256 CIRCLE 157,50,10: PLOT 157, 
60: DRRU 0,25: DRRU -10.0 

257 PRINT RT 15,9,"G",RT 15,19, 
"C";RT 11,17;"R"; BRIGHT 1, FLRS 
H 1,RT 10.10;"R" 

260 PLOT 72,65: DRRU 0.20; DRRU 
15,0: DRRU 5.5: DRRU 5,-5: DRRU 


5, 

5 : 

DRRU 

5 / -5 : 

DRRU 5/5: 

DRRU 

5 . - 

5 : 

DRRU 

15,0 : 1 

DPRIJ 0,5: 

DRRU 

15/ 

0 : 

DRRU 

0/ -15 : 

DRRU -15 

z 0: DR 

RU 

0 , 

10 





264- REM 

265 REM calcolo caduta 

266 REM 


270 PRINT 

BRIGHT 

i; 

RT 

8, 

0;"R= " 

; (a -b) se ; " 
275 PRINT 

Oh» ” 
BRIGHT 

i; 

RT 

5 , 

0 ; " R a " 

, (a-b> *c; " 

280 PRINT 

ua tt" 

BRIGHT 

i; 

RT 

2, 

16,"Ui= 


" ; a ; " Volt ";RT 4,16; M Vo= ";b;" 
Volt " ; RT 6,16;" 1= " ; c ; *’ Rmper 

300 GO TO 220 
310 CL5 

319 REM 

320 REM Terzo programma 

321 REM 

330 INPUT "Resistor^ <3h»? **;a-, 

INPUT "Corrente Rmper' 7 ” ; b 
34-0 CLS 


IF 

a =0 RND 

b =0 THEN GO 

TO 1 

IF 

a < 0 OR 

b<0 THEN CLS 

: PR 


INT FLRSH 1, BRIGHT 1;RT 12,2J“U 
alori negativi non validi": GO T 


D 330 

360 PRINT RT 1,7,"Legge di Oh» 
", BRIGHT 1, "U= R * I" PLOT 10,15 
5 DRRU 220,0: DRRU 0,15: DRRU - 
220,0: PP'"i 0,-35: DRRU 60,0. DR 
RU 0,20 

370 PRIN, BRIGHT 1, PT 3,2; "0,0 
MENU '" 

380 CIRCLE 72,50,15: PLOT 72,15 
DRRU 0,20. PLOT 72,15: DRRU 86 
,0 ; DRRU 0,25 

390 CIRCLE 157,50,10; PLOT 157, 
60: DRRU 0,25: DRRU -10,0 


395 

PLOT 72,65: 

DRRU 

0.20 

DRRU 

15,0 

DRRU 5,5 : 

DRRU 

5 , -5 

DRRU 

5,5: 

DRRU 5,-5: 

DRRU 

5,5: 

DRRU 

S . -S : 

DRRU 30.0 




3 96 

PRINT RT 15 

,19,"R 

", RT 

10, 10 

; • R"; 

RT 15,8;"Ge 

", BRIGHT 

1, FLR 

SH 1 ; 

RT 15,6;"U" 




399 

REM 




400 

REM CalCOlo 

V 



401 

REM 





4.10 PRINT RT 8,11; "U* BRIGHT 

1; a *b; " Volt" 

420 PRINT RT 21,0;"R= " ; BRIGHT 

1. a, ” Oh»": PRINT RT 21,20.; "fle 

. BRIGHT l;b;" Rmper" 


430 

GO TO 330 


440 

CLS 


449 

REM 


450 

REM Quarto programma 


451 

REM 


460 

INPUT "Tensione ";a,"Resi 

S t 

enz a 

"; b 


470 

CLS 


480 

0 

IF a=0 RND b =0 THEN GO TO 

1 

485 

IF 3<0 OR b<0 THEN CLS : 

PR 


INT RT 10,2, BRIGHT 1; FLRSH 1; 
Valori negativi non validi": GO 
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TO 4t>C 

4.90 PRINT RT 1,7;"Legge di Oh* 

; BRIGHT 1 ; '■ I = U/R": PLCT 10.15 
5: DRRIJ 220,0; DRRU 0,15; DRRU - 
220,0: DRRU 0,-35: DRRU 80,0: DR 
RU 0,20 

4-95 PRINT RT 3,12; "In un circuì 
to",RT 4., 12; "con tensione -®- e” 

; RT 5,12; "Resistenza -61- la", RT 
6,12; "corrente e' "; BRIGHT 1; 
FLASH 1;"-B-” 

500 PRINT BRIGHT 1,RT 3,2;"0,0 
MENU'" 

510 CIRCLE 72.50.15: PLOT 72,15 
: DRRU 0,20: PLOT 72,15: DPRU 86 
.0: DRRU 0,25 

520 CIRCLE 157,50,10: PLOT 157, 
60. DRRU 0,25: DRRU -20,0: DPRU 
-5,5 DRRU -5,-5: DRRU -5.5: DRP 
U -5,-5: DRRU -5,5: DRRU -5,-5; 
DRRU -35,0: DRRU 0,-20 
530 PRINT RT 15.9;"G";RT 10,12; 

"R", BRIGHT l; FLRSH 1;RT 15,19; 
"R” 

54-9 REM 

550 REM Calcolo I 

551 REM 

560 PRINT BRIGHT 1,RT 8,1;”I= * 

; a/b. ” Rmpe r” 

570 PRINT BRIGHT 1;RT 21,0;"U* 

" ; a ; ** volt": PRINT bright i . rt 2 
1,20;"R= "; b; " Oh» " 

560 GO TO 4-60 
600 CL5 

609 REM 

610 REM Quinto programma 

611 REM 

612 PRINT RT 1,4;“Potenza elett 
rica "; BRIGHT 1,”U= U*I" 

620 INPUT "Tensione volt? ";a: 
CL5 : GO SUB 800 
625 PRINT RT 4-, 2; BRIGHT 1: "Uol 
t ", a 

64.0 INPUT "Intensità' di correo 
te .Rmpe r 7 ", b 

64-5 PRINT RT 6,2, BRIGHT 1 ,"Rmp 

e 655' IF a =0 RND b=0 THEM CLS : G 
O TO 10 
660 PRUSE 20 

669 REM 

670 REM Calcolo U 

671 REM 

675 PRINT RT 10.2; BRIGHT 1;"Ufi 
TT ”; a * b 

676 IF a <.0 OR b < 0 THEN CLS : PR 
INT RT 10,3; BRIGHT l.i FLRSH 1; " 
Valori negativi non validi" 

750 GO TO 620 

800 PRINT RT 1,4-; "Potenza elett 
rica "; BRIGHT 1,”U= 0*1" 

610 PRINT RT 3,20, PPTGHT 1; IN 
VERSE 1,"0,0 MENU'" 

620 PLOT 0,155: DPRU 254-, 0 : PLO 
T 150,14-0: DRRU 104-, 0 
830 PLOT 0,132: DPRU 120.0: PLO 
T 0,116. DRRU 120,0 PLOT 0,84-: 
DRRU 120.0 

840 PRINT RT 15,0;"Calcolo dell 
a potenza elettrica di un appare 

echio,.essendo note la tension 

e.applicata e l'intensità.d 

i corrente assorbita." 

350 PLOT 0,13: DRRU 254-, 0 
860 RETURN 
870 CLS 
872 REM 

673 REM Sesto programma 
374 REM 

875 PRINT RT 1,1; " Intensi ta ' di 
corrente "; BRIGHT l,"l = U/U" 
880 INPUT "Potenza Uatt-» ", a . C 
LS : GO SUB 940 

890 PRINT RT 4,2, BRIGHI 1,"Uat 
t " ; a 

900 INPUT "Tensione Volt 7 ";b 
905 PRINT RT 6.2; BRIGHT 1 ; "I/O L 
t ", b 

910 IF a =0 RND b=0 THEN CLS : G 


Q TO 10 
915 PRUSE 20 

919 REM 

920 REM Calcolo I 

921 REM 

925 PRINT RT 10,2; BRIGHT l;"Rm 
per ",d/b 

930 IF a<0 OR b<0 THEN CLS : PR 
INT RT 10,3, BRIGHT 1, FLRSH 1;" 
Calori neaativi non validi" 

935 GO TÒ 880 

940 PRINT RT 1,1;"Intensità' di 
corrente "; BRIGHT 1,"I= U/V" 
945 PRINT RT 3,20, BRIGHT 1; IN 
VERSE 1,"0.0 MENU'" 

950 PLOT 0,155: DRRU 254,0: PLO 
T 150.140: DPRU 104,0 
955 PLOT 0,132: DRRU 120,0: PLO 
T 0,116: DRRU 120,0: PLOT 0.84: 
DRRU 120,0 

960 PRINT RT 15,0; "Ca l CC lo 4eU 

'intensità' di.corrente assorb 

ita da un.apparecchio, essendo 

note la.tensione applicata e 

la potenza elettrica del medesim 
o . " 

965 PLOT 0,13: DRRU 254,0 
970 RETURN 
975 CLS 

977 REM 

978 REM Settimo programma 

979 REM 

980 PRINT RT 1,4;'Tensione appi 
icata "; BRIGHT 1;"Va U/I" 

985 INPUT "Potenza watt? ";a: C 
LS : GO SUB 1040 
990 PRINT RT 4,2; BRIGHT l;"Uat 

t " , a 

995 INPUT "Intensità' di corren 
te .Rmpe r ? “; b 

1000 PRINT RT 6,2; BRIGHT l;"Rmp 

e r " ; b 

1005 IF a=0 RND b=0 THEN CLS : G 

O TO 10 

1010 PRUSE 20 

1014 REM 

1015 rem Calcolo U 

1016 REM 

1020 PRINT RT 10.2; BRIGHT 1; "I/O 

11 ";a/b 

1025 IF 3<0 OR b < 0 THEN CLS : PR 
INT RT 10.3; BRIGHT 1; FLRSH 1;" 
Calori negativi non validi" 

1030 GO TO 985 

1040 PRINT RT 1,4;"Tensione appi 
icata BRIGHT 1;"U= U.'I" 

1045 PRINT RT 3,20,; BRIGHT 1; I 
NVERSF 1 ; "0,0 MENU'** 

1050 PLOT 0,155: DRRU 254,0: PLO 
T 150,140: DRRU 104,0 
1055 PLOT 0,132: DRRU 120,0: PLO 
T 0,116: DRRU 120,0: PLOT 0,84: 
DRRU 120,0 

1060 PRINT RT 15,0,"Calcolo dell 
a tensione applicalaad un appare 
echio, essendo note l'intensità' 

di corrente.assorbita e la po 

tenza eletlrizadel medesimo." 
1065 PLOT 0,13: DRRU 254,0 
1070 RETURN 




# 


# 
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Campionato di calcio serie A 


Durante le vacanze al mare, ci è capitato di conoscere i proprietari di una piccola emittente televisiva 
e colpiti dal demone della curiosità abbiamo chiesto loro farcela visitare. 

Quello che piu colpisce di prima vista è la estrema artificiosità e falsità degli sfondi e degli scenari che 
caratterizzano le immagini che il telespettatore osserva sul televisore. 

Visitando gli studi, abbiamo notato che in un angolo vi era un VIC 20 e subito ci è venuto spontaneo 
chiedere cosa ci facesse un computer in uno studio televisivo. Abbiamo scoperto cosi'che con opportuni 
adattatori il segnale video del VC veniva utilizzato per creare effetti speciali mentre nelle ore di non 
programmazione provvedeva a fornire alcuni simpatici schermi di presentazione dell'emittente ed i 
relativi programmi. 

Ora si stava studiando di utilizzarlo la domenica, per mostrare i risultati della schedina ed aggiornare 
automaticamente la classifica mentre l'audio trasmetteva in diretta le partite della squadra locale, mi¬ 
litante nel campionato di serie C2. 

Abbiamo preso lo spunto della visita all'emittente per cominciare a lavorare sopra quest'idea ed ecco 
il risultati riprodotti sulle pagine di LIST. 

Data la scarsa memoria disponibile sul VIC, il programma presenta un unico neo. 

Bisogna modificare di volta in volta il blocco di DA TA contenente i nomi delle squadre che si affronta¬ 
no, i punti in classifica, le reti seanate e quelle subite. ' 

Dopo aver dato il RUN sullo schermo compare la presentazione: 


CAMPIONATO DI CALCIO 
SERIE A 


ANALISI RISULTATI 
E CLASSIFICA PTID/R 
MINUTO PER MINUTO 


Tale schermo rimane fisso fin quando non si preme un tasto. 

Solo allora vengono visualizzati, sempre premendo il tasto, le partite di serie A, la classifica e i minuti 
di gioco. 

Per aggiornare i risultati basterà premere C e si vedrà cosi comparire la scritta GOAL! a tutto scher¬ 
mo, e successivamente la richiesta del nome della sauadra che ha segnato la rete. 

Il programma riprende quindi normalmente fino aa un nuovo aggiornamento. 

Nella forma presentata, il blocco di data si riferisce alla 29° schedina del 1984. 

All'inizio del campionato 1934/85, basterà scrivere le squadre secondo l'ordine della prima schedi¬ 
na e per ogni squadra aggiungere 3 zeri. 

Esempio: 

N DATA "nome squadra"000 

N indica il numero della riga sul listato ed è compreso tra 900 e 915 a passi di 1. 

5 PRINT "rii" 

20 H*="L1ST CLUB COMPUTER " 

110 N=16 : M=8 

120 DIMIN*<M . 2 •. IN* 1 M. 2 •. CL*<N>, CO*<N>, CL‘/.<. N>, CO*<N>, GF*<N>, FO*<N> ,GS*<N> 

125 BIUSO*<.N:•,DO*<N>,DD*<N> 

130 PRINT'TJ-" 

135 PRINT" CAMPIONATO DI CALCIO SERIE A »" 

140 PRINT"-»" 

160 FORI = 1TOM :J=I#2-1 :L=I*2 

17U READ I N* < 1,1), CL* < J ), GF* <J>, GS* < J >, IN* < 1,2 >, CL* L > , GF* < L >, GS* < L > 

180 CL*<J) = IN*<1,1) : CL*<L)*IN*<I,2> : NEXT 

215 PRINT"»-" 

220 PRINT" ANALISI RISULTATI " 

225 PRINT" F CLASSIFICA PTI D/R" 

230 PRINT" MINUTO PER MINUTO" 

240 PRINT"»-" 

260 GETX*■IFX*=""THEN260 
270 TI*="000000" 


50 











275 FRINT"IT POKE J6S79,S 

280 FORI = 1 TOM :POKE211,0:P0KE214,1+8:SVS58759:PRINTIN* <1,1>; 

290 PR I NTTflB< 10-LEN<STR*< INX< 1,1 ) > > > INX (. 1,1 > ; 

300 PR I NTTflB< 10> IN*< 1,2 > ; TflB< 19-LEN<STR* < INX (1,2 > > > > I NX <1 , 2 > 

310 NEXT 

315 GETX* : IFX*=""THEN315 

316 PRINT"ri?W&M?MìNALISI RISULTflTI « DOPO "MID*<TI*, 3,2> " MINUTI. " 

317 PRINT" (!lPJ(!WPWfWftWEiEOUE CLASSIFICA. " 

320 I FF'EEK <197 > = 19THENPRI NT " 3" ■ GQSUB751 : GOSUB60O 
330 GOSUB360 

340 IFPEEK < 197 >=1 °THE1JPP T NT " 71" ■ G0SUB751 : GOSUB600 
345 GOSUB770 : FORT=1TO20O0:NEXT 

347 IFPEEK<197>*19THENPRINT"IT' G0SUB751 : GOSUB600 
350 G0T0275 

360 FORI = 1TON: CO*<I> =CL*(I>:NEXT 
380 FORI=1TOM ; J=1*2-1 L=1*2 

390 FOX<J)=GFX<J>+1NX<1,1):SOX<J)=GSX<J)+INX<1 ,2)• DOX<J>=FOX<J>-SOX<J) 

400 FOX<L>=GFX<L)+INX<1,2) : SGX<L)=GSX<L)+INX(1,1 > : DOX<L)=FOX<L)-SOX(L) 

410 IFINX<I,1)=INX<I,2)THENC0X(J)=CLX<J)+l : COX(L)=CLXCL)+l : GOTO440 
420 IFINX <1, 1 » INX < 1,2 > THENCOX < J > =CLX < J > +2 : COX < L > =CI X < L > ■ GOTO440 
430 IFINX <1,1)<INX < 1,2 >THENCOX< J)=CLX< J >:COX < L >=CLX < L > +2 
440 NEXT 

460 FORI = 1TON-1 :FORL=I +1TON 
470 IFCOXCI> >=COX < L > THEN510 
480 COX=COX<I):DOX=DOX<I):CO*=CO*<I> 

490 COX<I> =COX< L > : DOX ( I )=DQX<L >:CO*<I> =CO* <L) 

500 COX<L > =COX:DOX(L > =DOX: CO*(L > =CO* 

510 NEXTL,I 
520 PRINT" 3" 

530 FORI = lTON : S* a "+" : IFDOXCIX0THENS*="-" 

540 IFDOX<I)=0THENS*=" " 

550 Z*=STR* < BOX(I)>:Z=LEN < Z* >-1 :DOX <1> =VAL < RIGHT* < Z*,Z >) 

560 P0KE211,0:P0KE214,I :SVS58759:PRINTB2* 

565 P0KE211,0 : P0KE214,1 :SVS58759:PRINTCO*< I > ; 

570 PRINTTAF<16-LEN<STR* <COX<I>>>)COX<I>; 

580 PRINTTAB <17)S$TAB<18-LEN < STR* < BOX <I> > > > DOX <1> 

590 NEXT 

595 GETX* : IFX*=""THEN595 
598 RETURN 

600 FORT=1TO2000 : NEXT 

640 GOSUB770: INPUT"NOM. SQUADRA"; SS* 

650 IFSS*="ENB"THENPRINT"rj" : END 
660 PRINT"li" 

670 F0RI=1T08 

680 IFLEFT*<SS*,3>=LEFT*<IN*<1,1),3>THENINX<I,1)=INX(I,1)+l:GOTO710 
690 IFLEFT*<SS*,3>=LEFT*<IN*<I,2),3)THENINX<I,2)=INX<I,2)+1:GOTO710 
700 NEXT 
710 K=I 

720 IFK=9THENRETURN 
730 PRINT"3" 

740 P0KE211,0:P0KE214,K+8:SVS58759:PRINTTAB <11)IN* < K,1);TAB < 20-LEN C ST.R*<INX < K, 1 > 

>>>INX<K,1> 

750 PRINTIN*<K,2)> TAB<11-LEN(STR*<INX<K,2)))>INX<K,2):G0T0754 

751 PRiNT'vciWPWiai'Wfl mm mm mm » % % * * * * * * * * * mm m 

752 PRINT " M m# X * X % * X X * * * * * MM ******* M* 


754 F0RF=1T021 

755 PPINT ,, <SW";TAB(F>;riID*<H*,F, 1) 

756 FORTUITO 50 : NEXT : NEXT:FORF=ITO100:NEXTF 
760 FORT=1TO20O0 : NEXT: RETURN 

770 PR I NT " rMWTEMPOMMmi" TI*" MMM" 

800 RETURN 
310 STOP 

900 DATA"CATANIA-,9,8,34 

901 DATA"AVELL. ",16,24,31 

902 DAT A"FIOPEN.",26,37,23 

903 DATA"VERONA ",26,34,22 

904 DATA"INTER ",24,20,17 

905 DATA"PTSO ",17,11.20 


906 DATA"LAZIO ",16,24,35 

907 DATA"MILAN ",22,29,31 

908 DATA"NAPOLI ",16,14,28 

909 DATA"ROMA ",27,32,19 

910 DATA"SAMP. ",21,27,25 

911 DATA"JUVE ",32,45,20 

912 DATA"TORINO ",26,23,19 

913 DATA"GENOA ",13,14,30 

914 DATA"UDINESE",24,37,25 

915 DATA"ASCOLI ",21,23,28 


READY. 
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Il Galeone 


Un gioco "didattico"per il VIC. 

Molti sanno che sul VIC non è possibile usufruire dell'istruzione PRINT A T (x,y) che permette di indiriz¬ 
zare direttamente il cursore in un preciso punto dello schermo. 

La casa costruttrice consiglia di usare i simboli corrispondenti ai tasti cursore per simulare tale funzio¬ 
ne,. ma l'operazione è piuttosto macchinosa. 

Ed ecco venire LIST in vostro aiuto con una semplice routine. 

Mettiamo il caso che vogliate scrivere la parola "Ciao" a partire dalla X casella della Y linea dello 
schermo. 

Basterà usare questa piccola routine. 

POKE21 1, X.POKE2 Ì4, Y:SYS58759:PR!NT "Ciao". 

Provare per credere! 

I due POKE iniziali posizionano il cursore, il SYS successivo fa riferimento ad una locazione del siste¬ 
ma operativo (KernalJ che controlla la gestione del cursore, ed infine il PRINT contiene la parola da 
stampare sullo schermo. 

II gioco presentato è una chiara applicazione della routine presentata. L'idea è venuta osservando un 
giochino implementato su una calcolatrice tascabile programmabile. 

C'é un numero che cambiando, progressivamente si sposta dalla sinistra alla destra dello schermo; 
contemporaneamente al centro, spostato sulla destra, c'è un contatore che agendo sul tasto (+J del 
VIC deve essere aggiornato ed uguagliato al numero che si muove sullo schermo. 

Ogni volta che ci si riesce bisogna premere il tasto in alto a sinistra della tastiera, cioè la freccetta oriz¬ 
zontale. 

Il numero "ballerino" tornerà indietro di una casella. 

Per vivacizzare un pochino il gioco è stata inserita nella parte bassa dello schermo, un'animazione 
rappresentante la famosa passerella di piratesca memoria sulla quale un brutto ceffo spinge un con¬ 
dannato. Per ogni vostro errore il pirata fa avanzare di una casella il malcapitato. Vi avvertiamo che 
il gioco è molto difficile e si riescono ad ottenere discreti risultati solo con velocità basse; state attenti a 
non tener premuti per troppo tempo il tasto (+) eia freccetta perché spesso non riuscirete a controllare 
la velocità eccessiva di risposta del computer. 

Sperando di avervi insegnato qualcosa di nuovo non ci rimane che augurarvi un buon divertimento. 


READY. 


m 


1 PRINT" rr :POKE36873,59 :P0KE36878,15 :P=16 

2 PRINT"! IL GALEONE" 


3 PRINT" eOPVRIGHT 1384 BV" 

4 PRINT" MASSIMO TRUSCELLI" 

5 PRINT" PER LIST" 

6 PRINT"RWftWSK + = INCREMENTO 0> = NUMERO CENTRATO" 

7 PRINT "WWW UN ATTIMO, PREGO !" 

8 PÙKE51,255 : P0KE52 • 27 : P0KE55.255 : P0KE56,27 

9 FORI=0TO511 

10 POKE7168+I,PEEK<32768+I>:NEXTI 

11 FORI=0T046 : READA 

12 P0KE7168+1 + <N*8>,A : NEXT 

13 P 0KE36863•255 

14 DATA24,24,8,254,8,20,34,102 


SS 
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15 

DRTR24 , 24,12,12,12,20 , 34 , 

102 



16 

DRTR129,36,144,17,88 

,26,1 

-jri • . 

35 


17 

DRTR255,0.0,0,O,0,0, 

0 




18 

DRTR255,255,255,255, 

■“■ire •-> 
c~ • J , C. 

55,2! 

55 , 255 


19 

DRTR255,127.63,31,15 

.7,3, 

1 



20 

PRINT"3" : K=1=INPUT"3 

P/ELOC 

IT R "■ 

(10/100)";D 

21 

D*200-D : M®1 





C- •— 

B=M+1 : T=0: PRINT"21" 






PR I NT " 

"C"Vi 

r«" 



24 

P0KE211 • P : P0KE214 , 15 

: SVS5 

8759 

••PRINT 

"R 

25 

P0KE211 , 6 : P0KE214 , 16 

= SVS5 

8759 

:PRINT 

"CCCCCCCCCEDBBDD" 


26 POKE8070,5 : PQKE38790,0 

27 FGRW=8071TO8075 : POKEW, 4 : POKEW+30720 .• 0 : NEXTW 

28 FORW=8076T08097 :POKEW, 2 : POKEW+30720,6 : NEXTW 

29 B=B+1 : R=INT<RND<1>*10 >: 

30 P0KE211,B:P0KE214,2 =SVS58759 : PRINT"a"R"■" : K=K+1 
50 FORN=1TOD : T=T+1 

55 GETX$ 

56 IFX*="+"THENGOSUB100 

57 I FX$= " *•" RNDC=RTHENK=K+1 : GOTO200 

58 NEXTN 

59 IFPEEK < 8016 ) O32THEN500 

60 P0KE2t1,P■P0KE214,15:SVS58759:PRINT" 

61 P=F'-1 

62 POKE36876,245 :FORT*1TO50 : NEXTT : P0KE36876,0 

63 GOT024 

100 C=C+1:IFC=10THENC=0 
110 PR I NT" M C" •.Vé" 

115 RETURN 

200 B=B-1:PU=PU+1:IFB>0THEN220 
210 PR I NT " 73" : GOT0300 
220 R=INT < RND <1> #10 > 

225 P0KE211, B : POKE214,2: SVS58759 : PR I NT " 3" R " ■" ; •’ G0T024 
300 PRINT" SITENTRTIVI = "K"B" : PRINT" SPUNTI ="PU"B" 

310 GOT0565 

500 PRINT"SiSITENTfìTIVI = "K"B " : PRINT" SPUNTI ="PU"B 

510 POKE211,P:P0KE214,15 = SVS58759 = PRINT"@ 

515 F0RW=225T0135STEP-45 
520 P0KE8015,1 : P0KE38735,4 
530 FORT=1TO50=NEXTT 

540 POKE8015,32=POKE8037,1=P0KE38757,4 

545 P0KE36876,W 

550 FOPT=1T050 = NEXTT 

555 POKE8037,32 :POKE8059,2 = PQKE38779,6 

556 FQRT=1TO50=NEXTT 
560 POKE8059,32-NEXTW 

565 P0KE36876,130 = FORV=15TO0STEP-1 : P0KE36878,V 
570 IFK<=PUTHENPRINT ,, ^b®®!IWSE. T. ■" 

580 I FK/2=PUTHENPR I NT " SM^^SBUONOB" 

590 IFK/2CPUTHENPRINT "IMOS" 

600 I FK/2>PUTHENPR I NT " mmaMBSCRRSOfi' 1 
700 FORT*1TO30=NEXTT,V 
710 P0KE36879,27 :P0KE36876,0 
715 FORT=1T03000 :NEXTT:PRINT" 35" 

720 POKE198,0 :P0KE36869,240 : END 

ktt iflV. 


?3 








TEXAS TI 99/4A 




Un programma per il TI 99Z4,A che necessita di stampante e relativa interfaccia. 

È stato implementato usando l'interfaccia parallela ESSEMMECI, sicuramente piu diffusa dell'analo¬ 
ga di produzione TEXAS più costosa. Una volta tanto un'applicazione diversa dal solito videogioco. 
Inizialmente viene richiesta la categoria delle operazioni e l'eventuale bilancio. 

Se esiste è possibile richiedere la media totale del costo delle operazioni. 

Superata tale fase e dimensionati opportuni vettori’, inizia la definizione delle operazioni che non pos¬ 
sono superare il limite massimo di 13. 

Viene richiesta la data, il numero dell'assegno, la somma, la destinazione e la giustificazione 
dell'operazione. 

Se qualcosa non andasse per il verso giusto non preoccupatevi perché prima di memorizzare i dati nei 
meandri della sua memoria, il computer vi richiederà l'O. K. 

Se non c'è viene ripetuta automaticamente la procedura. 

Superata tale fase si associano le varie voci ad un codice per poter sveltire in tal modo le operazioni. 


1 codici sono i seguenti: 



01 

DATA 

06 

COSTO MEDIO 

10 

NUMERO ASSEGNO 

07 

COSTO TOTALE 

20 

SOMMA 

08 

INFERIORE AL BILANCIO 

30 

PAGATO A... 

09 

SUPERIORE AL BILANCIO 

40 

PER... 

12 

BILANCIO 


La stampante collegata, comincierà a fornirvi i tabulati con le notizie riguardanti le varie operazioni. 
Alla fine se avevate introdotto il bilancio, dopo il calcolo del costo totale delle operazioni e l'eventua¬ 
le costo medio delle operazioni, viene indicata la situazione del bilancio, in breve se è il caso di comin¬ 
ciare a preoccuparvi sul futuro delle vostre attività oppure no. 

Un programmino semplice ed efficiente di una certa utilità e facilmente adattabile ad altri computers. 
Se vorrete potrete aggiungere altre routines che vi possano risultare particolarmente utili o estendere 
il numero delle voci per operazione, o addirittura il numero totale delle operazioni. 


ELENCO DELLE VARIABILI 

X$= Categoria 

BG= Bilancio 

WACS= Imput per la richiesta del costo medio 

VAR= Numero di entrate (VOCI OPERAZIONI) 

A$= DATA 

B= NUMERO ASSEGNO 

C= SOMMA 

D$= DESTINATARIO 

E$= MOTIVAZIONE 

OK$= Richiesta di conferma finale dati 

A= Variabile di servizio 

GT = Costo totale 

Q = Costo medio 











100 OPEN #1 :"PIO" 

110 CALL CLEAR 
120 CALL SCREEN(12) 

130 PRINT 

140 PRINT ESTRATTO CONTO *" 

150 PRINT 

160 FOR T=1 TO 3000 

170 NEXT T 

ISO CALL CLEAR 

190 INPUT "CATEGORIA ? "sX$ 

200 PRINT s s I 

210 PRINT "PREMI 0 SE NON C'E' BILANCIO" 
220 PRINT s: : 

230 INPUT "BILANCIO ? ":BG 
240 PRINT :i: 

250 PRINT "SCRIVI SI O NO" 

260 PRINT : :"VUOI LA MEDIA" 

270 INPUT "TOTALE ? "iWAC* 

280 CALL CLEAR 

290 PRINT "* LIMITE DI 13 ENTRATE 
300 INPUT "NUMERO DI ENTRATE ? ":VAR 
310 DIM A*(15> 

320 DIM B(15) 

330 DIM C(15) 

340 DIM D*(15> 

350 DIM E»(15) 

360 FOR A=1 TO VAR 
370 PRINT "# No ";A 

380 INPUT "DATA DI EMISSIONE M sA*(A) 

390 INPUT "NUMERO ASSEGNO ":B(A) 

400 INPUT "SOMMA ":C(A> 

410 INPUT "PAGATO A M sD*(A) 

420 INPUT "PER : "sE$(A) 

430 PRINT : : : 

440 INPUT " O.K. ? "sOK* 

450 IF OK*="NO" THEN 460 ELSE 490 

460 A=A—1 

470 A=A 

480 PRINT : : 

490 NEXT A 
500 GOTO 620 
510 FOR 1=1 TO VAR 
520 PRINT #1s C ( I ) 

530 GOSUB 740 
540 NEXT I 

550 X=C (0) +C ( 1 ) +C (2) +C (3) +C (4) +C (5) 

+C(6)+C(7)+C(8)+C(9)+C(10) 


560 

GT=X+C(11)+C(12)+C(13> 

570 

PRINT 

«li 


580 

PRINT 

«1: 


590 

PRINT 

«li 


600 

PRINT 

«li"TOTALE ";GT 

610 

GOTO 810 


620 

REM «STAMPA* 

630 

PRINT 

«1s"*-« 


640 

PRINT 

«li X* 


650 

PRINT 

#1: 


660 

PRINT 

«1:"01 

DATA" 

670 

PRINT 

•lf"10 

N. ASSEGNO" 

680 

PRINT 

«li"20 

SOMMA" 

690 

PRINT 

«1:"30 

PAGATO A" 

700 

PRINT 

«ls"40 

PER s" 

710 

PRINT 

«1: 


720 

PRINT 



730 

GOTO 510 


740 

PRINT 

«li"01 

"j A*(I) 

750 

PRINT 

«ls "10 

" » b < n 

760 

PRINT 

«ls"20 

" ; C ( I ) 

770 

PRINT 

«ls"30 

";D* ( I ) 

780 

PRINT 

«li"40 

"; E»(I) 

790 

PRINT 





800 

RETURN 


810 

PRINT 

«ls"07 

TOTALE FINALE = "»GT 


820 IF BG=0 THEN 990 
830 PRINT #1: 

840 PRINT #1:"12 BILANCIO ";BG 
850 IF BG>G THEN 880 ELSE 860 
860 IF BG<G THEN 920 ELSE 870 
870 IF BG=G THEN 960 
880 AB=BG-GT 
890 PRINT #1* 

900 PRINT #1*"INFERIORE AL BILANCIO "|AB 
910 GOTO 990 
920 AB-GT-BG 
930 PRINT «li 

940 PRINT «ls"SUPERIORE AL BILANCIO "|AB 
950 GOTO 990 
960 PRINT #1: 

970 PRINT «li"UGUALE AL BILANCIO" 

980 PRINT «1 

990 IF WAC*="NO" THEN 1020 
1000 Q=GT/VAR 

1010 PRINT «li"COSTO MEDIO "|Q 
1020 PRINT «li 

1030 PRINT «li"-" 

1040 CALL CLEAR 
1050 CLOSE «1 
1060 END 


*-*-*-*-*-*-*-*-*-*-*-*-*-* 

ASSEGNI 

01 DATA 
10 N. ASSEGNO 
20 SOMMA 
30 PAGATO A 
40 PER : 

*-*-*-*-*-*-*-*-*-*-*-*-*-* 
3000000 
01 2/3/84 
10 2345 

20 3000000 

30 ELETTRONICA 2000 
40 NOLEGGIO SOFTWARE 


2000000 
01 4/5/84 
10 45872 

20 2000000 
30 EDIL TECNICA S.R.L. 
40 LAVORI MANUTENZIONE 


TOTALE 5000000 

07 TOTALE FINALE = 5000000 

12 BILANCIO 200000u00 

INFERIORE AL BILANCIO 195000000 
COSTO MEDIO 2500000 






— <?s 





















Mastermind 


Una ennesima versione del l'ormai famigerato MASTERMIND. 

Un esercizio logico sempre attuale e mai noioso specialmente se implementato su un computer. 
Istruzioni comprese nel programma.. 

10 PPI NT " rr : POK E36879,8 : PRI NT " fii" P0KE36869 , 240 
lì P0KE36878 > 15 

12 FORJ=7812T07877:POKEJ,160^ NEXTJ 

13 FORK=33532T038597:POKEK,3 : NEXTK 

14 P0KE211.0 P0KE214,0:SVS58759 

20 PRINTTRB< 132)" I-1 I MASTER MIND I I- 

II 


30 FORT =1TQ2000 : NEXT 

35 F0RK=38T0150STEP1 ” P0KE36865 , K : NEXTK 

40 PRINT ,, r*.3" 

?? GOSUE400 

100 F0RX=1T05 

110 A<X>= INT(RND <110 ^ 

115 IFX=1THEN140 

120 F0RV=1T0X-1 IFA<X>=A<V>THEN100 

130 NEXTV 

140 NEXTX 

200 INPUT"k»";B$ 

220 FORX= 1T05 : B<X>«VAL<MID$<B$.• X, 1 > > : NEXTX 

225 FORX= 1T04 : FORV=X+1 T05 : IFB< X > =B < V '• THEN200 

226 NEXTV.X 
230 B=0C=0 

240 FOPX=1T05 FORV=1T05 : TFA<X > =B <V>THENC=C+1 
24ì NEXTV,X 

250 F0RX=1T05 ; IFA(X>=B<X)THENB=B+1 
255 NEXTX 
260 C=C-B 
270 PRINT" 3" 

273 A$="" 

275 IFC*0THEN285 

280 F0RX= 1 TOC : At=A*+"|io" : NEXTX : P0KE36876, 180 
285 IFB=0THEN300 

290 F0PX=1T0B A*=A*+ ";*§" : NEXTX : P0KE36876,220 

300 PPI NT " TTrfMMMMMMI A t 

315 Ii=D+l 

320 IFB=5THEN350 

340 P0KE36876,0 :GOTO200 

350 PRINT"WWS*WS-ESATTO IN 

351 FQPK=1T04 P0KE36876,190 : FOPM=1TO500:NEXTM 

352 P0KE36876,200 : FORM=1TO500 : NEXTM 

353 POKE36876,210‘FORM=1TO500:NEXTM 

354 P0KE36376,220 : FORM=1TO500:NEXTM:NEXTK 

355 P0KE36876,0 

356 POKE211,0:PQKE214•0 : SVS58759 

357 PRINT "73" 

359 P0KE36879,12 

360 PPINT"GIOCHI ANCORA” 7 (S/N>" 

361 GETXt : IFX$=""THEN361 

362 I FX$0 " N " THENP0KE36879,8 : PRINT "MS" : RIJN100 

363 PRINT"35" : P0KE36878,0 : P0KE36879,27 
365 END 

400 PPINT"IO PENSO AB UN NUMERO DI 5 CIFRE TUTTE " 
410 PPINT"DIVERSE TRA LORO. TU,A TENTATIVI,CERCA 

415 PRINT"WWW" 

420 PPINT"PER OGNI NUMERO TI RISPONDERÒ'" 

425 PRINT" St-PEP OGNI CIFRA AL POSTO ESATTO" 

427 PRINT"MO-PER OGNI CIFRA FUORIPOSTO" 

430 FOPK=150TO38STEP-1 :P0KE36865,K:NEXTK 

435 PRINT:RETURN 

PEABV. 


" PRINTD"TENTATIVI ! !" 


DI INDOVINARLO" 















S ::::::: flÉf 
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SINCLAIR ZX-81 


Bacca rat 


In questo famoso gioco da Casinò giocate contro il computer che tiene il Banco. Il valore celle figure - 
D (diedi, J,Q,K,-è 10 e va sottratto dal valore totale delle carte che si hanno in mano. 

Scopo del gioco è di avvicinarsi, sommando il valore di due o tre carte, il più possibile a nove. 


Es.: J, 2=2 

12,6 = 8 


Il computer distribuirà due carte: se si desidera la terza carta premere "C", altrimenti un qualsiasi al¬ 
tro tasto. 

A questo punto il computer visualizzerà le sue carte. Il Banco vince se il suo punteggio è uguale o mag¬ 
giore rispetto a quello di singolo o più giocatori. 

Per giocare ancora premere un tasto qualsiasi. 


VARIABILI 

D = gettoni a disposizione 

C = carta 

PN = punteggio giocatore 

P = punteggio nella subroutine e punteggio del Banco 


STRUTTURA PROGRAMMA 

Linee 

10 sequenza numeri casuali per inizio gioco 

15 punteggio = 0 

20 stampa gettoni giocatore 

25-30 richiama due volte subroutine per distribuzione di due carte al giocatore 

35 aspetta decisione giocatore 

40 se il tasto C viene premuto distribuire altra carta 

50-60 stampa punteggio e *BANCO ' 

65 reset - P=0 

70-75 richiama due volte subroutine per distribuzione carte al Banco 

80 se il punteggio del Banco è interiore a quello del giocatore richiama subroutine per ter¬ 

za carta al Banco 
85 stampa punteggio Banco 

90-95 se il Banco ha vinto togliere un gettone al giocatore altrimenti aggiungerlo 
110 torna alla linea 15 per altra partita 


SUBROUTINE 

200 scegli un numero a caso tra le 13 
205 stampa valore carte 

220 sottrarre 10 dal totale se fra le carte c'è una figura 
225 torna al programma principale 

- 






SINCLAIR ZX-81 



1 REM BfiCCfiRfiT 
5 LET [>=50 
10 RfiND 
15 LET P=0 

20 PRINT -GETTONI ";D 
25 GOSUB 200 
30 GOSUB 200 

35 IF INKEY $ = "** THEN GOTO 35 
4-0 IF INKEY * *"C" THEN GOSUB 20 

45 LET PN=P 

50 PRINT -PUNTI **;PN 

55 PRINT 

50 PRINT “BANCO" 

65 LET P=0 


70 GOSUB 200 
75 GOSUB 200 

80 IF P < PN THEN GOSUB 2O0 
85 PRINT "PUNTI ";P 
20 LET D =D-1 

95 IF PN >P THEN LET C=D+2. 

100 IF INKEY**** '* THEN GOTO 100 

105 CLS 

110 GOTO 15 

200 LET C=INT (RND*13+1) 

205 PRINT " A234-56789DJOK" <C> 
210 IF C>10 THEN LET C=10 
215 LET P=P-fC 
220 LET P=P-1©*INT (Pxl0> 

225 RETURN 



Il cubo alfabetico 16 K 

Sulla faccia del cubo , formata da 4x4 quadratini vengono visualizzate , in ordine casuale, le prime 
quindici lettere dell'alfabeto piu uno spazio vuoto. 

Scopo del gioco è quello di metterle nuovamente in ordine alfabetico. 

Attenzione , potete spostare soltanto le lettere adiacenti allo spazio vuoto , digitando il tasto corri¬ 
spondente. 


1 

2 

3 

4 

5 

è 

7 

3 

10 

20 

30 

40 

45 

46 
61 
62 

63 

64 

65 
70 
80 
90 

100 

11© 

12Q 

130 

140 

150 

RND 


REM ****** ***************** 
REM * * 

REM * IL CUBO * 

REM ìfiLFRBETICO* 
REM * * 

REM *********************** 
REM 

DIM fi*(4,4) 

LET fi* ( 1) = " ABCD *’ 

LET RJ12)=“EFGH" 

LET R*(3)="ILMN" 

LET R * C 4 ) = "OPO ’• 

GOSUB 600 

PRINT RT 0,0 ; .. ” _ '* 

FOR L = 1 TO 4 

PRINT , " 1"; fi* (L) ; ”1 " 

NEXT L _ 

PRINT 

PRINT "INSERIRE LETTERA" 
INPUT B* 

FOR L = 1 TO 4 
FOR 1=1 TO 4 

IF fi*(L,I)=B* THEN GOTO 15Ó 
NEXT I 
NEXT L 
GOTO 80 

IF (L=X OR L=X + 1 OR L=X -li 
( I =Y OR I =Y + 1 OR I = Y -13 THEN 


GOTO 170 



160 

GOTO 80 



170 

LET fl*<X,Y) 

=R*(L, 
s M " 

I) 

ISO 

LET R*CL,I) 


190 

LET X =L 



195 

LET Y = I 



200 

GOTO 61 



600 

FRST 



610 

FOR L = 1 TO 

20 


620 

LET O = INT (RND *4) 

■f1 

630 

LET T = INT <RND*4) 

fi 

631 

LET P = INT (RND*4) 

■fi 

632 

LET M = INT (RND*4) 

+ 1 

640 

LET T*=fi*(O 

,T) 


645 

LET fi*(Q,T) 

=fi*(P, 

M) 

653 

LET fi*(P,M) 

=T* 


660 

NEXT L 


661 

FOR L = 1 TO 

4 


662 

FOR 1=1 TO 

4 


663 

IF fi* ( L , I ) = 

" " THEN 

664 

NEXT I 



665 

NEXT L 



671 

LET X=L 



672 

LET Y = I 



67 3 

SLOU 



650 

RETURN 




^8 
























Articoli determinativi 


Si tratta di abbinare a 24 nomi di animali i relativi articoli determinativi. Dopo due errori consecutivi il 
calcolatore farà apparire sullo schermo la risposta esatta. 

Questo programma è stato studiato per gli alunni di prima e seconda elemntare e risponde a tutti i 
principi dell'Istruzione Programmata. 


READY. 


2 REM## #* 

3 REM# MARINO CORETTI * 

4 REM# * 

5 REM# V.PETRONIO 16 # 

6 REM# # 

7 REM# TRIESTE * 

S REM## ## 


9 REM##########*######### 

20 FRINT"IT 

25 PRINT :PRINT :PRINT :PRINT :PRINT 

30 PRINTCHR*<18>"ARTICOL I DETERMINATIVI" 

40 PRINT : PRINT : PRINT : PRINTTAB<7> " ATTENTII " : FORJ= 1TO3000 : NEXTJ 
50 PRINT"!T : DIMAT<24>:DIMN$<24> 

60 FORJ=1T024 
78 PERDA* < J ) : REATINA < J ) 

SO NEXTJ 

90 F0RJ-1T024 

100 FRI NT "ri" •’ E=0 

110 FRINT"IL NOME E"":FRINT 

120 PR I NTCHR* 03) N* < J ) 

130 R*="":PRINT INPUT"ART ICOLO ":R* 

140 IFR*=""THEN130 
150 I FR*=A* (. J > THEN180 

155 FRINTTAB<16>CHR$<18)""ERRORE" : E=E+1 : K=K+1 

160 IFE=2THENPRINT :PRINT :PRINT "RISPOSTA" FRINT :PRINTCHR*(13>A t <J);" ";N t (J>:OOT 
0130 

170 GOTO130 

180 PR I NT : PR I NT : PR I NT A* < J ) ; " " j N$ (. J ) : PR I NT : PR I NT : PR I NT " ESATTO " 

190 FRI NT: FRI NT: FRI NT "PREMI IJN TASTO" 

200 GETQJ:IFQ$=""THEN200 
210 PRINTCHR$<147> 

220 NEXTJ 

230 PRINTCHR$<147) 

240 PR I NTTAB< 4 ? CHR t (. 18 V FI NE PROGRAMMA " 

250 PRINT :PRINT"ERRORI ";K: END 

260 DATAIL^ CANE,LO.STRUZZO,GLI,ASINI,I,CAVALLI 

270 DAT AGL I, SCIMMIONI, IL, LUPO, I, LEON I, LO, SCO IA l 101,0 

280 DATAI, GATTI, GLI, IJCCELLI, LO, STAMBECCO, IL, CERVO 

290 DATALE,OCHE,LA,PALLA >L'> OCA,L",INTERROGAZIONE 

300 DATALA,GIOSTRA,LE,CAMPIONESSE,LE,GIOSTRE,L',INFANZIA 

310 DATALO,ZUCCHERO,LO,ZOCCOLO,GLI,ZUCCHERI,GLI,ZOCCOLI 


READY 










SHARP MZ-700 



Risoluzione di equazioni 
• con il metodo di Cramer 


mmmimtu 


% 

oangemi iuan * 

X 

! 384 * 

X 


LOANO 


RISOLUZIONE 


01 SISTEMI DI EQUAZIONI 


rON IL 


METODO DI CRAMER 


’0 REM 
20 REM 
30 REM 
40 REM 
30 REM 
00 REM 
70 REM 
90 CLS 
30 PRINT 1 
’00 PRINT 
1 10 PRINT 
120 PRINT 
1 30 PRINT 
140 PRINT 
1 30 PRINT 
100 PRINT 
1 70 PRINT 
180 PRINT 
1 30 PRINT 

200 FORZ-1TO1000:NEXTZ 

210 CLS 

220 PRINT'BATTI 1 PARAMETRI DELLA 1 EQUAZIONE' 
230 PRINT 

240 IN,’JT'UALORE DI X:':A 
250 INPUT'UALORE DI YJ":B 
200 INPUT'TERMINE NOTO»":C 
270 PRINT 

280 PRINT'BATTI I PARAMETRI DELLA 2 EQUAZIONE* 1 
290 PRINT 

300 INPUT'UALORE DI X»“;0 
310 INPUT'UALORE DI Y»";F 
320 INPUT'TERMINE NOTO:';F 
330 CLS 

340 FORU-1TO500:NEXTU 

330 G-A*E 

300 PRINTAiB 

370 PRINTOjF 

380 PRINTA'*'E'-'G 

330 H-B*D 

400 PRINTB'S'D'-'H 
410 I-G-N 

420 PRINTG'-'H'-'ISPRINT'DETERMINANTE' 

-30 PRINT 
440 L-CSE 
430 PRINTCjB 
400 PRINTFJF 
470 PRINTC'*'E'- r L 
400 M-B*F 
430 PRINTB't'T'-'M 
300 N-L-M 

310 PRINTL'-'M'— r NSPRINT'DETER.DI X' 

520 PRINT 
530 0-A*F 
340 PRINTAIC 
550 PRINTDiP 
300 PRINTA r *‘F'-'0 
570 n -C*0 

300 PRINTC'S'D'-'P 




530 Q-O-P 

000 PRINTO'-'P'-'Q^RINT'DETER.OI Y r 
010 IFC I“0J*CNO0 JZCQO0JTHENGOTOO40 
020 IFCI-03*CN-0J*CQ-0)THENGOTOO50 
030 GOTOOO0 

640 PRINT: p RINT'EQUAZIONE IMPOSSIBILE ' - P RINTs p OR Z-1 
TO 3000:NEXT sfLSsFND 

050 PRINT s p RINT'EQUAZIONE INDETERMINATA 1- : p RINT :P 0R Z-1 
TO 3000 :NEXT : CLS iFND 000 R-N-'I 
070 PRINT 
680 PRINTN'/" I'—'R 
030 S-Q7I 
700 PRINT 

710 PRINTQ'/'I'—'S 
720 FORK-1TO3000SNEXTK 
730 PRINT 

740 PRINT'UALORE DI X»P 
750 PRINT'UALORE DI TJ'S 
760 FOR Z-l TO 3000:NEXT Z 
770 REM SOLO PER MZ-731 

780 CLSSPRINT' INSERIRE LE 4 PENNE'J p RiNT 

J^RINT SPRINT 

730 PRINT'*** PREMI SPACE QUANDO SEI PRONTO XXX 1 ' 

800 GET A*:1F A*OCHR*C32JTHEN 800SCLS 

910 MOOE GR 

820 MOUE240» 5 

830 GPRINTll»0J»"T r 

940 MOUE240,0 

850 AXIS0.-10.48 

800 MOUE0.-240 

870 AXISI,10,48 

880 MCUE470.-240 

830 GPRINTtI.SI,'X' 

300 MOUE 240 ,-240 

910 LET Xl-R 

320 LET Yl-S 

330 LET Y2-0 

340 LET X2-CC+T2VA 

950 LET X3-R 

300 LET Y3-S 

970 LET Y4-0 

980 LET X4-CFYY4VD 

330 PRINT:INPUT'INGRANDIMENTO K- ' ;K 

1000 X-K*Xl*?40 

1010 Y-K*Y1-240 

1020 Z-K4X2+240 

1030 Ul—K*Y2-240 

1040 U-KÌX3+240 

1050 U—KXY3--240 

1000 T—KXX4+240 

1070 J—K*Y4-240 

1080 MOUE X,Yi p COLORl 

1030 LINE X,Y,Z,U 

1180 MOUE U,U s p C0L0R3 

1110 LINE U,U,T,J 

1120 MOUE 240,-240 

1130 MODE TN: TLS 


30 












Al/ 
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ZX-81/16K 


Invasione di topi 


Siete intrappolati all'interno di un tunnel sotterraneo... ma, ... ma cosa sono questi strani rumori che 
provengono dal buio???.... sono topilllll 

Cercate di evitarli quanto piu a lungo possibile... altrimenti.... UH 


1 REM RAT 

10 PRINT AT 0/1;"INUflSIONE DEI 
TOPI" 

HBi n |- PRINT AT 

12 PRINT RT 3/0; "SET INTPRPPOL 
RTO IN UN TUNNEL E SENTI/SEMPRE 
PIU UICINI /DEGL I STRANI RUMOR 

I. SONO.NON HRI RRMI 

R DISPOSI2INE/PUOI SOLO CERCARE 
DI SFUGGIRE LORO." 

14- PRINT RT 14- / 0; "USA X TASTI; 
" / / ”5 = SINISTRR’* / / "8=DE3TRA" 

15 PRINT RT 20/0;"PREMI UN TRS 

TO. . .." 

16 PAUSE 4-00 
10 CLS 

50 LET E = 15 

60 FOR F- 1 TO 100000 _ 

70 PRINT RT 15/RND»30;"■■■" 

30 5CR0LL 

100 PRINT RT 15,0; ’J 



14.0 PRIt^^^^l^A3j 

150 *PRIN^^070n 



210 PRINT RT 12,l-, 

220 IF PEEK (PEEK 16393+256*PEE 
K 1S399)=128 THEN GOTO S00 
230 PRINT "U" 

24-0 PRINT RT 12 /E;" " 

250 IF INKEY*="5" THEN LET E=E — 

1 

260 IF INKEY$ ="0" THEN LET E =E♦ 

1 

270 NEXT F _ 

500 PRINT RT 16,12;"Hiffiffi";F 
510 PAUSE 600 
520 CLS 

530 PRINT RT 11/2;"PREMI UN TRS 
TQ PER CONTINUARE" 

565 PAUSE 4-E4- 

566 GOTO 18 

570 SAUE "INUASIONQi" 

580 RUN 







31 




























































ZX Spectrum 16 K 



Il muro 


Avete appena finito di costruire un muro divisorio per il vostro giardino. 

Ma ecco arrivare un uccello dispettoso che comincia a far cadere delle pietre sopra i mattoni appena 
posizionati del muretto. 

Il vostro lavoro dunque ricomincia: dovete infatti cercare di riparare il muro sostituendo i mattoni ca¬ 
duti. 

Per prendere i mattoni - ricordate che potete prenderne solo uno alla volta - dovete salire la scala che 
si trova alla destra del muro. 

Istruzioni per giocare contenute nel listato. 


Attenzione! Le lettere maiuscole fra virgolette vanno digitate dopo essere entrati nel modo grafico 
(GRAPHICS-G). 


# 


1 BORDER PRPER 0; INK 7: C 

L'5 . GO SUB 1000 

2 DRTP 153,153,255,24. ,24- , 126 
SS ,1S5,152,152.255,27,27,120,132 
,1,129,129,255,129,129,129,2S5,1 
29,251,251,251,0,191,191,191,0 

3 DR7P O , 14- , 53,110,133,0,0,0 , 
0,0,128,192,32,0,0,0,128,110,53, 
11,10,0,0,0,32,192,128,0,0,0,0,0 

4. LET 5=16 

5 FOR n =14.4. TO 151: FOR f =0 T 
O 7: RE9D a. POKE USR CHR$ n + f , a 
: NEXT f: NEXT n 


6 

LET 

m $ = " 

R " 

7 

LET 

y = INT 

(RND*20 +5) : LET X 

=20: 

LET 

a =15 : 

LET b = INT (RND *20 

+ 5) : 

LET 

h =2 : 

LET pn =0 

8 

LET 

b$ = " 

EF " 

9 

LET 

t =0 


10 

PRINT RT 

19,1; INK 2;"DDDDD 


DDDDDDDDDDDDDDDDDDDDDDDDD";RT 13 
, li INK 3; "DDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDD" 

15 FOR n =1 TO h: PRINT RT 02-n 
,30;"C" : NEXT n: PRINT RT 20-n, 3 

0; "D" 

17 LET h=h*l 

18 IF h « 13 THEN FOR n=21 TO 0 
STEP -1: PRINT RT n ,30 ;" ": NEXT 

n: LET h=2 : LET X=20 : GO TO 15 

X 20 PRINT RT x , y -1 ; i» $ 

30 PRINT RT a , b-1 ; INK 6;b$ 

31 IF RND > > 95 THEN LET 1=1 
35 IF INKEY$=”0” THEN GO TO 11 

0 

4-0 LET y =y + ( INKEY$="8" RND y<3 
0 RND X > =20) - ( INKEY$="5" RND y>l 
RND X > =20) 

4.5 IF 1=1 THEN GO SUB 200 
50 IF INKEY $ = " 7 " RND y =30 RND 
X > =20-h +1 THEN LET X=X-1: PRINT 
RT x,y;"R" ; RT x + 1, y ; "C” 

55 IF INKEY$="6" RND x<20 THEN 
LET X =X +1 : PRINT RT x,y;"R";RT 
x-1,y;"C" 

60 LET b = b +(RND >.5 RND b<28) -( 
RND <.5 RND b>2) 

70 IF X =20 -h +1 THEN LET »* = ** B 
*• : PRINT RT x -1, y ; ** " 

80 LET pn=pn+l 
85 LET b $ = " EF '* 

90 IF pn/2<)INT (pn/2) THEN LE 
T b$= M GH " 


99 

IF 

1=1 THEN 

LET S =S 1 : LET 

l =0 




100 

GO 

TO 20 


110 

IF 

m % < > " B 

;; THEN GO TO 20 

111 

LET m*=" R 


112 

LET pnrpn+5 


115 

FOR n =19 TO 

a *1 STEP -1 

120 

IF 

SCREENJ 

(n , y ) =" " THEN P 

RINT 

RT 

n,y; INK 

5;"D": BEEP .01 

,20: 

GO 

TO 15 


121 

IF 

SCREEN* 

(n,y)=" " THEN G 

O TO 

15 



130 

NEXT n 


140 

GO 

TO 15 


200 

IF 

SCREEN* 

(s , b) < >" " THEN 


PRINT RT S , b; " *: BEEP -Ol^Sr .PR 


IL MURO 
PUNTEGGI: 

MRTTONE =5 punti 

OGNI MRTTONE IN MENO = -5 punti 
Per ogni secondo= 1 punto 
Usare i tasti cursore (5,6,7,8,) 
Premere "0" per rimpiazzare un 



S , b, 
RETURN 


LET pn=pn-s: LET 


GO TO 250 


INT RT 

3=16: __ 

205 PRINT RT S,b;"*" : BEEP .01 
S : PRINT RT S , b ; " 

210 LET S=S*1 

211 IF S =21 TMEN 
220 GO TO 200 

250 PRINT RT 10,11; FLASH 1;'*CH 
E SFORTUNR ! ! I •* : BEEP . . .. 

260 PRINT RT 12,11; INVERSE 1, 
PUNTI="; FLRSH l;pn 
300 FOR n=l TO 4-00: NEXT n 
CLS 

PRINT RT 5,9; FLRSH l;"I L 
R O " 

PRINT RT 7,3;"PUNTEGGI: 
PRINT RT 9,0;"MRTTONE=5 pun 


400 
500 
1000 
M U 
1100 
1200 
t i *• 
1300 
IN 


PRINT RT 
MENO = -5 P 


11 , 0 ; 

unii " 


"OGNI MRTTONE 


1400 PRINT 
1 punto" 

1450 PRINT 
re (5,6,7,8 
1460 PRINT 
impiazzare 
1500 INPUT 
iziare";o$ 

1600 CLS : RETURN 
9999 SRVE "muro" LINE 


Per ogni secondo 


i tasti curso 


"Usare 

"Premere ""9"" per r 
un mattone" 

Premere ENTER per in 





















Lancio con il paracadute 

Lanciatevi dall'aereo in volo (tasto 0).... se siete veramente bravi centrate il bersaglio!!!! 

I numeri contrassegnanti l'area di atterragqio indicano il punteqqio ottenibile a seconda del punto in 
cui toccherete terra. 

Forza... tocca a voiI 


(RND *21) +1 
<RND*7>4-2 


1 REM *********************** 

2 REM LANCIO COL PRRACADUTE 

3 REM ************************** 

5 LET PM=0 

10 CL5 
15 LET P=0 

20 LET L=10 
30 LET A = I NT 
40 LET D = INT 

4 1 LET G = D 4 1 
4.2 LE” K=0 

4.4. PRINT AT 0,1 ;"**** *LANC IO *C 
OL * PAR AC AD UT E ***■**"; AT 1,3; "PUNT 
I = ”; p; AT 1,14.; “PUNTEGGIO MAX %=*’.: 
PM;AT 21,0,"LfìNCI=”;L 

50 PRINT AT 19, R; » HlffTlll—MIMT- 
60 PRINT AT SO, A 4-1; "5” ; AT 20 , A 
4-3; "10"; AT 20,Af6, ,, 5" 

70 FOR C=0 TO 26 

75 PRINT AT 

77 IF INKEY $ = "0" THEN LET K = 1 
60 IF K = 1 THEN PRINT AT G,C4-i; 
"w*" , AT G + 1,C + 1,"Y" 

81 IF G = 17 AND C 4-1 > =A AND C 4-1 C 

A 4-3 OR G = 17 AND CfURU AND Cfl-: 

A+6 THEN GOTO 300 

62 IF G = 17 AND C + l=ft+3 OR G=17 

AND C 4 1 = A 4-4- THEN GOTO 350 

SS IF G = 18 THEN GOTO 4-00 

131 PRINT AT G,C + 1; “ “ ; AT G 4-1 , C 

+ i; *’ •* 

132 IF K = 1 THEN LET G=G + 1 
14-0 PRINT AT D , C ; " 

14.1 IF C =25 THEN LET C=0 

150 NEXT C 

160 STOP 

300 LET P =P 4-5 

320 GOTO 4-00 

350 LET P=P+10 

4G0 CLS 

401 IF P>=PM THEN LET PN=P 

410 LET L =L-1 

420 IF L=0 THEN GOTO 500 

430 GOTO 30 

500 CLS 

510 PRINT AT 10,3;"UUOI GIOCARE 
ANCORA? " ; AT 11, 12; *' (S/N) T" 

520 IF INKEY$="S" THEN GOTO 10 
530 IF INKEY$s"N" THEN GOTO 550 
540 GOTO 520 
550 CLS 

560 PRINT AT 10,6;"PUNTEGGID MA 
X.=”;PM 
570 STOP 
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Attacco alla città 



Due elicotteri sorvolano la vostra città: uno cerca di atterrare per poter far "sbarcare" i nemici che vo¬ 
gliono tentare una invasione, l'altro provoca azione di disturbo sganciando bombe agli ioni. 

Dovete intercettare le bombe nemiche in modo che esplodano prima di giungere a terra e distruggere 
l'elicottero che trasporta gli invasori prima che riesca ad atterrare (lato destro dello schermo). 

Per far ciò avete a disposizione un cannone-laser con 1000 colpi. 

Quattro livelli di difficoltà selezionabili. 

Un gioco divertente con una buona grafica e degli ottimi effetti sonori. 

Necessità di joystick (PORT 2). 


0 rem *mM*Mm*m*m***+ 


1 REM * * 

2 REM % ATTACCO ALLA * 

3 REM * * 

4 REM * CITTA' * 

5 REM * * 

6 REM * CBM 64 * 

7 REM * * 


s rem 
9 REM 

13 FGRR=0TO62 : POKE960+R, 0 : NEXTP 

40 POKEV+39,2 : POKEV+40. S■ POKEV+41,0 
50 PQKEV+37,14:POKEV+38,0 
60 PQKE2040, 11 •• POKE2041, 13 : POKE2042, 
65 REM *** DATI PER SPPITES *** 

70 PORI-0TO62:REAPX : POKE704+I,X : NEX 
80 FORI=0TG62:READX•P0KE832+I,X : NEX 
90 FORI-0TO62:READX:P0KE896+1,X :NEX 


14 print m :t 
16 GO3UB3000 

18 EN=999 

19 SI-54272 

20 v-53248 :PQKEV+32,15 : POREV+33.15 

21 DIMMI<25> 

22 PL=54296 

23 TI£="000000" 

24 ANG-0 

26 82=54279 

30 POKEV+21,31 ‘ POKEV+28, 17 


FORI=0TO4:POKEV+42+1,1 :HEXTI= P0KEV+43,6 
14 :POKE2043,15 :POKE2044 ,11 


1 00 FOR I =01 0 1 5 : P0KE960+ 1,0: FOR 1 = 1 6T0- 6STEP3 : POKE960+1, 16 : NEX I' 



















110 FQRI =46T062 POKE960+1 .• 0 : NEXT 

111 F0RK=0T024•REflDW1<K>:NEXT 

114 GOSUB8200 

115 print":t 

116 REM *** CITTA'' 

117 POKEV+32 , 15 • POKEV+33, 15 

120 FQRQ= 1984T01984+39 : POKEC?, POKEQ+54272, 6 : NEXTQ 

130 E-0 

140 B= I NT < RND < 1 > f-10 > +6 
150 F=INT <PHD<1>*2)+3•D=B*2tì:E=E+1 
160 FORM-1TOF:Ii=B*20 

170 FORC=0TOD8TEP40 P0KE1944-C+E,174 P0KE56216-C+E,12 
180 NEXTC 

190 E=E+1 : IFE>38THENE=0:G0TQ210 

200 NEXTH--GOTO 140 

210 REM *** NUVOLE M* 

215 PRINT" _ — ■. w wu-" 

220 PRINT"H»P*ÌÌ»»Ì»HHI.a ■*" 

230 PRINT"*ML—■<_JiÌ»r- :h JÈ " 

240 PRINT "«ET -" 

260 PRINT"ìf-" 

261 PRINT"«SPUNTI 1 SCITTR'5 SENER. ■ 999 SRNGR. ■ M 

263 F0RK=0TO24:POKESI+K,HI <K>:NEXT 

264 POKES1+4,65:POKES1+18,65:POKES1+11,65 

265 BV=0:BX=0 TUS=0:PUN=0:BOM=0'0-0 :POKEV+16,0 
270 2X=200 : ZV=55 

275 R=100 

280 PO!-'£56322,224 

29Ù X=210 

300 POKEV+6,0 : POKEV+7,0 
310 0=0 

320 REM *** INIZIO DEL GIOCO *#* 

330 POKEV+0,Q:POKEV+1,R 

331 TEMPO=VRL'TI*> : IFTEMPQ>=300RNPTEMP0<400THEHPOKEV+32,11 POKEV+33,11 

332 IFTEMP0>=410THENPOKEV+32,0 : POKEV+33,0 

333 IFTEMPO>=700THENTI$="000000":POKEV+32,15:POKEV+33,15 

334 IFBV>=160THENPOKEV+27,0 

335 IFBV<160THENP0KEV+27,2 

336 IFPUN=300ORPUM=600THENRNG= S RNG-1 :TUS=1:GOSUB3005:PUN=PUN+10 

338 IFRHG>=1RNBPU=1000ORRNG>=1RNDPU=800THENCIT=CIT-1 :PIJN=PUH+10 :GOSUB2020 

340 POKEV+8,ZX:POKEV+9,ZV 

341 IFZX>30RNDBV=0THENPOKEV+2,ZX BV=ZV+6:POKEV+3,BV = B0M=1:BX=ZX 

342 IFBOM=1THENPOKEV+2,BX:POKEV+3,BV:BV=BV+4:BX=BX+.4 

343 IFBV>=230THENPOKEV+2,0 :POKEV+3,0 :BOM=0:BV=0:GOSUB2000 

344 IFBX>=250THENBX=BX-.4 

343 IFZX>=220THENZV=ZV-2.1 :ZX=ZX-.5 

349 IFZV<=2THENZX=0:ZV=55 

350 POKEV+4,X :POKEV+5,221 

355 REM JOYSTICK PORT 2 <J*PEEK<56320)) 

360 J»PEEK<56320) 

370 IF < JRND4 >*0rHENX=X-6 
330 IF < JRND8 > =0THENX=X+6 
335 IFX>249THENGOTO40O 
390 IF<JRNH16)=0THENGOTO800 
400 ZX=ZX+1.5 

410 0=0+3 

411 IFPEEK<V+16 >=1RNDQ>=40THENR=R+4.5 :Q=Q-2.0 :HUB=1 

412 1FPFEK< V+16 > = 1RNBQ>=40RNDR>=120THENPOKEV+27,1 

413 1FR>=225RNDPEEK<V+16) = 1THENPOKEV+16,0:0=0 :R=100 :POKEV+27,0 HUB=0:GOSUB3000 

414 IFPEEK < V+16 >=1RNDX>=255THENP0KEV+16,13:X=0 

415 IFPEEK<V+16)=12RNDO>=255THENP0KEV+16,13:0=0 

416 IFPEEK<V+16> = 13RND0>=95THENP0KEV+16,12'0=0 

417 1FPEEK <V+16 > = 1RNDQ>=95THEHP0KEV+16,0:Q=Q 

418 1FPEEK < V+16 > = 12RNDX<=0THENPOKEV+16,0:X=254 

419 IFPEEK < V+16 > = 13RNDX<=0THENPOKEV+16,1=X=254 
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420 I FX=>255THENP0KEV+16,12 1 X=0 
430 IFQ=>255THENPOKEV+16,1:Q=0 
435 GOTO330 
700 REM #** SPRRO *** 

S00 P=200 
801 EN=EN-5 

302 PRI NT " ■=!" ; TRE< 25 > ; EN 



305 

806 

307 

809 

810 
811 
315 
816 

817 

818 
320 
825 
830 
331 

832 

833 

834 

835 

836 

pò - » 

COI 

840 

845 

850 

355 

360 

365 

870 

375 

380 

390 

895 

896 


IFEN<=100THENGOT04000 

IFG T H=0fiNDPUN>=3000THENEN*EN+500•GIH=1 

XQ“X 

IFPEEK<V+16> =4THENP0KEV+16,12 
IFPEEK<V+16 >=5THENP0KEV+16,13 
IFPEEK<V+16> = 1RNDQ>=30THENBOM=1 
Q=Q+1.5 
ZX=ZX+ 8 

IFQ>=255THENPQKEV+16,1 Q=0 
I FPEEK <. V+16 >=12RNBQ>=255THENP0KEV+16,13- Q=0 
IFPEEK <V+16 > = 13RNDQ>=?5THENP0KEV+16,12-Q=0 
IFPEEK(V+16 > = 1RNDQ>=95THENP0KEV+16,0 :Q=0 
POKEV+0,Q : POKEV+1,P 
POKEV+3,ZX:POKEV+9, ZV 
POKEV+6, XQ •• POKEV+7, P 
IFBX:=253THENEX=BX-.4 

IFE0M=1THENPQKEV+2,EX : POKEV+3,BV : BV=BV+2.5 : BX=BX+.4 
IFBV>=230THENPOKEV+2,0•POKEV+3,0 :BÓM=0:BV=6■GOSUB20.* ' 

IFHUB=1THENP=P+2 : Q=Q-1.3 
IFZX>-220THENZV=ZV-1.5-ZX=ZX-.5 
IFZV<=2THENZX=0 : ZV=50 

I FP*>=225THENP0KEV+6,0 : POKEV+7,0 : POKEV+16,0 : PO! r \ t 1 /, 0 GOSlIB3000 ; G0T0414 

F-P-15•ÌFPC80THENPOKEV+7,0 :GOTO330 

IFPEEK <V+30 >=10THENBV=0:BOM=0:G0T093R 

IFPEEK<V+30 > =9THENGOTO870 

POKEV+30,0 

GOTO810 

REM ELICOTTERO COLPITO *** 

RLTR=PEEK <V+32 ? :RLTB=PEEK < V+33 > 

F0RK=54272T054296 :POKEK,0 :HEXT 

P0KE54279,8 : P0KE54277,30 ; P0KE54278,31 •' P0KE54276, 129 : POKEPL, 15 = P0KE54273, 6 
POKE54272,206 :FORTV=14TO03TEP-2:FQRT=1TQ45:NEXT:P0KE54296,TV 
POKEV+32,INT<RNB<0>#15>+1 
POKEV+33,1NT(RND<0 > # 15) +1 


900 NEXTTV 

901 POKEV+32,RLTR:POKEV+33,RLTB 

902 FORK=0TO24:POKESI+K,N1<K>:NEXT 

903 POKESI+4,65 : POKES1+18,65:POKES1+11,65 

909 PUN=PUN+50 

910 PR I NT " il" TRE < 5 >, PUN 

911 POKEV+30,0 

912 POKEV+6,0 : POKEV+7,0 

915 IFPEEK <V+16) = 13THENP0KEV+16,12 


913 P=100 
920 GOTO300 

925 REM *** BOMBR COLPITO *** 


930 HL T H-PEEK < V+32 > ‘ HL TB=PEEK »: V+33 ; 

931 POKEV+2,0 : POKEV+3,O 

932 POKEV+6,0 :POKEV+7,0 

935 F0RK=54272T054296 : POKEK,0 :NEXT 

940 P0KE54279,9 P0KE54277,30 : P0KE54273,31 :P0KE54276,129 :POKEPL,15 P0KE54273,6 

950 P0KE54272,206 : FOPTV=8TO0STFP-2 : FORT 55 1. TOSO : NEXT : P0KE54296, TV 

951 POKEV+32,INT<RNB<0)#15>+1 

952 NEXT 

955 FOPK=0TQ24:POKESI+K,W1<K>:NEXT 

956 POKESI+4,65 :POKES1 + 18,65 :POKES1 + 11,65 
965 PUN=PUN+10 : PR I NT" 3" TRE < 5> J PUN 

970 POKEV+32, RLTR POKEV+33,RLTB 


980 GOTO330 

2000 PPM +>* CITTH-' COLPITO #** 
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2001 F0RK-54272T054296:POKEK,0 :NEXT 
2005 RLTB=PEEK(V+33> 

2008 POI E54279,9 :P0KE54277,30 :P0KE54273,31=P0KE54276,129:POKEPL,15 :P0KE54273,6 

2009 P0KE54272•106■FOPTV=15TO0STFP-1 : FORT=1TO120 :NEXT P0KE54296,TV 

2010 POKEV+32,1NT<RND<. > *15 >+1 

2011 POKEV+33,I NT<RND<.> *15 >:NEXT 

2012 POKEV+33,RLTB : POKEV+32,RLTB 

2013 FORK=0TO24'POKESI+K•W1<K> : NEXT 

2014 POKESI+4,65■POKES1 + 18,65 :POKES1 + 11,65 

2015 CIT=CIT+l 

2020 PRI NT •' S" TRE: < 16 > ; CIT 
2090 IFCIT=LIVTHENGOTO2200 
2110 RETIJRN 

2200 REM *** CITTA" DISTRUTTO *** 

2202 PRINT ,, SIi'I(ilPli!lP»OT«i'Ii'tfli»Ìli»»PW_FI CITTA" E' STRTfì DISTRUTTA •!!" 

2203 PPINT"MMPMÌÉMISCHE PECCATO '!!" 

2205 F0RK=54272T054296•POKEK,0 :NEXT 

2206 POKES1+3,8-POKESI+6,240'POKES1+4,129 POKEPL,15 :POKES1,1 :POKES1 + 1,5 

2207 P=0 

2210 IFP-10THENP~0:GOTO2280 

2220 FORT*1TO1 0 POKEV+33,INT <RND <.> #10) +1 :POKEV+32,INT <RND<\ > * 12>♦1 

2230 0=INT<RND <.> *320 > +1 

2235 C=INT <RND<.> *320> +1 

2240 POKE1624+0,32 

2245 POKE1624+C,32 :NEXT 

2250 POKEV+32,15:POKEV+33 ,15 

2260 POKES1+4,129:POKEPL,15:POKES1,1 POKES1+1,5 

2270 FORHV=15TO0STEP-1 : FORH1=0TO100 :NEXT:POKEPL,HV : NEXT:R=R+1:G0T02210 

2280 FORGH=0TO9:POKEV+GH ,0 :R=R+1 :NEXT 

2290 PRINT"!T: IFPUN>RECTHENREC=PUN:GOSUB6000 

2300 POKEV+33,7 :POKEV+32,2 

2310 PPINT m 3M«WW»»LA VOSTRA MISSIONE E / FALLITA !'!•• 

2320 PRINT"»W»»nVETE COMUNQUE TOTALIZZATO"PUN"PUNTI" 

2330 PRINT")»»W?ECORD : "REC 

2340 P0KE56322,255 : PRINT" WiSWMB/OLETE PROVARE ANCORA UNA VOLTA <S/N>" 

2360 OETEPT: IFER*=""THEN2360 

2370 IFER$="S"THENPUN=0 ANG=0 : CIT= 0 :EN=999‘TT$-"000000" 

2375 IFERS="S"THENINPUT"MSLIVELLO <1-4 >";LIV$:LIV='VAL<LIVT> 

2376 IFLI V<> 1ANDLIV02ANDLIV03ANDLIV04THENLI '•/= 1 : G0T0115 

2377 IFER$="S"THENG0T0115 
2380 IFERTO " N " THEN2360 

2390 PR I NT " IAOO ! ! ! " 

2400 PRINT"MIPPMPWSPERO VI SIATE DIVERTITI" 

2410 pr i nt •• mmixitr ■ end 

3000 REM *** NEMICI OCCUPANO LA CITTA" *** 

3001 POKEV+1,0 

3002 HUB=0 

3004 PNG=ÀNG+1 

3005 IFANG<0THENANG=0 
3008 IFANO-LIVTHEN3040 

3010 PR I NT " «!" TRE: < 37 ) ; ANG : R= 100 : Q=0 
3030 RETURN 

3040 REM *** CITTA" OCCUPATA *** 

3042 F0RK=54272T054296:POKEK ,0 NEXT 
3045 POKES1+3,8:POKES1,1=POKESJ +6,240 

3055 POKEV+33,15 : POKEV+32,15 = PRI NT " ««tfPWRiMMMPMI NEMICI HANNO OCCUPATO" 

3056 PRINT"K»»M»m.A CITTA" !!!" 

3057 POKEPL,15 :POKFSI,150:POKES1+4,65 

3058 FORH 1 =200TQ0STEP-2 : POKES I +1, H1 : FORHT=OTO 10 : NEXT : \ ICS*! 

3059 POKEPL,15 FORH*1T03 FORH1 * 120TO0STEP-5 : POKESI +1 1 " FOh HT=0TAS0:NEXT•NEXTH1 

3060 NEXTH:POKES1+4,16 

3070 POKEV+0,0 :POKEV+1,0:POKEV+2,O:POKEV+3,0 :PQKEV+ * . < POKFV+5•0 :PAKFV+6.0 
3080 POKFV+7,0 : POKEV+8, 0 ; POKEV+9,0 
3090 IFPUN>RECTHENREC*PUN:GOSUB6000 

3200 PPINT"fTrtPPPCJv'OLETE GIOCARE ANCORA ? (S/N)" foKF56322• 255 
3205 PRINT"aWWWWMRECORD : "REC 
3210 GETERt:IFER$=""THEN3210 
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3220 IFER$="3"THENPUN=0 RNG=0■CIT=0•POKEV+32,15: TIf="000000" 

3225 IFER*= ,, S"THEN INPUT" «OLIVELLO <1-4>";LIV$:LIV=VAL<LIV$>:EN=999 
3223 IFLIVO1RNDLIV02ANDLIV03ANDLIV04THENLIV= 1 :GOTOl 15 

3229 IFER$="S"THEN115 

3230 IFERf="N"THEN3240 
3235 GOT03210 

3240 PRTNT'^rW^T^BiMiiMiCIROO ! ! ! " 

3250 PRINT"M«SPERO VI SIRTE DIVERTITI 
3260 END 

4000 REM *** ENERGIA LRSER ESAURITA ### 

4005 POKEV+32,15=POKEV+33,15 


4020 PRINT H :i*0000000000ENERGIA TERMINATA ! " 

4030 PRINT"*000 00000000 1 1QN POTETE FARE PIU' NULLA." 
4040 PRINT N MmmW»LA CITTA'' E' DISTRUTTA !" 
4045 XVZ=1 
4050 GOTO330 


5010 EXT =1024 :EXF=55296 
6000 REM *## RECORD #*# 

6010 OPU-0 
6015 GT=A 

6020 F0RK=54272T054296 : POKEK•0 : HEXTK 
6025 FRI NT"ri" 

603O PR INT "3REC0RD RECORD " : OPU=OPU+1 

6040 IFOF*U=23THENH1=50 : GOTO605© 

6045 GQTO6030 
6050 REM 

6055 POKESI+3,3:POKESI+6,240 :POKEPL,15 = POKES1,150:ROKES1+4.65 

6058 POKESI +1,H1 :H1=H1+3 :FORGH=0TO300:NEXT 

6060 POKEV+32,INT<RND(.>#15> +1 

6070 POKEV+33,7:GT=GT+1 

6080 IFGT=11THENGOTO6086 

6085 GOT06050 

6086 FORH1=200TO0STEP-3:POKESI +1,H1 :NEXT 

6087 POKES1+4,65 

6090 PR I NT ": POKEPL, 0 • RETURN 
8000 REM *** INTRODUZIONE #*# 

3001 POKE53280,15=P0KE53281,15 
8002 F0RK=54272T054296 :POKEK,0 :NEXT 
3003 PL=54296 


8004 81=54272 

8005 POKES1+4,0:POKESI+2,0 :POKESI+3,8 :POKESI + 6 , 240 

8006 POKEPL,5 :POKES1+4,129 :POKES1,250 :POKES1 + 1,2 


8010 PRINT"J>MPÌH 3 «01 «01 m «000000! " 

8020 PRiNT"f 5 *i»isi 10000000000001 «00001 " 

3030 PPINT M U000I3 lini»! H»»»l «0000001 «001 " 
8040 PRINT"-#000I3 INUMI «0«<i*0*0l «f " 

8050 PRI NT "1000013 *00001 «»»ft»»»»0| » 

8060 PRINT"1«000I3 PIIMIII «00001 «000000001 " 

8070 PRINT"300BH3 IMMMI 100001 1000000001 11 
8030 PRI NT "300013 MMM 01 «»»»N «000000001 •• 

8090 PPTNT"8000013 «0000001 «00001 «0000000*1 ” 

8100 PPI NT "1000013 101 «00001 «000000001 " 

3110 PRINT";ii!l««B0000000000000000000Fl T T A C K" 
3190 RETURN 


8200 REM *** INTRODUZIONE PARTE II +** 


8210 POKEPL,15 : POKES1, 150 :POKES1+4,65 :FORH1=255TO0STEP-1 POKESI + 1, HI : NEXT 

8220 FORH1=0TO255:POKESI +1,H1 :NEXT:POKES1+4,16 

8240 POKEPL,15:POKES1,150 :POKESI+4,65 :FORH=0TO10 

8250 FORH1=180TO30STEP-4:POKESI+1,H1■NEXT NEXT:POKESI+4,16 

3260 POKES1+4,129:POKEPL,15:POKES1,1:POKESI+1,5 

8270 FORH®15TO0STEP-1 : FORH1*0TO70:NEXT:POKEPL, H:NEXT 

8280 FORK=0TO24:POKESI+K,W1(K >:NEXT:POKES1+4,65:POKES1 + 18,65 :POKES1 + 11,65 
8235 F*V=0 

8290 PQKEV+0,PV : POKEV+1,180 
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8295 IFPV=243THENPV=0 •' G0T03310 
8300 PV-PV+1 : GOTO8290 
8310 POKEV+8 .• PV ^ POKEV+9, 1 00 
8320 IFPV=80THENPV=0■GOTO8350 
8330 PV=PV+1 :GOT08310 
8340 TU=195 

8350 POKEV+4, 160 : POKEV+5 .-210 

8351 FORG=0T0500:NEXT 
8355 PEW=180 

8360 FORPV=0TO25 

8370 POKEV+0,248 :POKEV+1,REM 

8330 POKEV+8,30 :POKEV+9,REW:REW=REU-6 

8335 IFREW<=50THENREW=REW+6 

3390 PRINT : NEXT 

8395 F0RPV=160TO110STEP-1 

8400 POKEV+4,PV:POKEV+5,210 

8410 NEXT 

8420 GOSUB8450 

8430 GÓTO8750 

3450 TIJ=110 

8430 F0RR=1T014 

8435 POKEV+4,TU•POKEV+5,21O 

3490 FORPV=200TO50STEP-3 

3500 POKEV+6,TU :POKEV+7,PV 

3510 NEXTPV 

8520 POKEV+6,0 :POKEV+7,0 
8525 TU=TU+8 

3530 ONRGOSUB3600,8610,8620,8630,8640,8650,8660, 
8540 IFR=14THENGOSUB8730 
3550 NEXT 
8560 RETURN 

8600 POKE1116,32-RETURN 
8610 POKE1117,3 :P0KE55339,3 : RETURN 
3620 POKE1113,9:POKE55390,3 : RETURN 
3630 POKE1119,20:P0KE55391,8=RETURN 
3640 POKE1120,25:P0KE55392,8 : RETURN 
8650 POKE1121,32:RETURN 
8660 POKE1122,1:P0KE55394,3 : RETURN 
8670 POKE1123,20 : P0KE55395,8 : RETURN 


86^0.8680■8690,8700,8710,3720 


3680 POKE1124,20:P0KE55396,3 : RETURN 
3690 POKE1125,1 :P0KE55397,3 : RETURN 
3700 POKE1126,3 :P0KE55398,3 : RETURN 
3710 POKE1127,11:P0KE55399,8 : RETURN 
8720 POKE1128,32=RETURN 
8730 POKE1129,33:POKE55401,8 : RETURN 

3750 PRINT"■3SKWM*®MiPPER LR DIFESO DELLO VOSTRO CITTA'" 
3760 PRINT "«MUOVETE R DISPOSIZIONE IJN LASER" 

3770 PPINT"WW»IDON 1000 COLPI. I NEMICI TENTERANNO" 

3730 PRINT"Wtt»IDI CONOUISTORE LO CITTA' MEDI ONTE UN" 

8790 PRINT"UPPPPELICOTTERO EQUIROGOIRTO CON BOMBE" 

8800 PRINT"WMWHGLI IONI.LO VOSTRO MISSIONE E'" 


8810 PRINT"IliiiCERCARE DI DISTRUGGERE LE BOMBE ED" 
8820 PRINT"MUttillMPEDIRE L y ATTERRAGGIO DEL SECONDO" 
8830 PRINT"liPiiELICOTTERO CHE TRASPORTA I NEMICI" 
3840 PR I NT " IMtill NVfìSOR I. " 

8850 PPINT"diiWWTTENZIONE ! DOVETE COLPIRLO CON UN" 
8360 PRINT"HiiHilSOLPO BEN PRECISO." 

8905 FQRPV=214TO30STEP-1 

8910 POKEV+4,PV:POKEV+5,210:NEXTPV . 

8920 PRINT">MMf?AGGIUNTO UN CERTO PUNTEGGIO" 

8930 PRINT"HiMiPARTE DELLE BOMBE DEGLI INVASORI " 
8940 PRINT"W*Mr/IENE NEUTRALIZZATA. <TASTO)" 

8970 GETEFR$ : IFEFRf=""THEN8970 
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8980 FORPV-80TO0STEP-1 
8990 POKEV+8 .■ PV : POKEV+9.. 55 
9000 NÈXTPV 

90 i. 0 PORR V-55TO08TEP--1 

9020 POKEV+0.. 248 : POKEV+1 ■ PV : NEXT 

9030 FORPV=0T024 :PRINT = NEXT 

9031 FORPV=30TO110:POKEV+4,PV:POKEV+5.210:NEXT 
9040 GQSUB8450 

9050 F0RPV=214TQ30STEP-1 : POKEV+4,PV POKEV+5,210:NEXT 
9055 PRINT"s11MEDUR ANTE IL GIOCO NON DOVETE" 

906O PRINT"liiiilSPR VENTAR VI SE DOPO UN PO' - LR" 

907O PRINT"IÌ»Ì»LUCE COMINCIA RD AFFIEVOLIRSI" 

9075 PRINT"»»ME SI FR BUIO." 

9076 GOSUB930O 

908O PR I NT " wìffsTPT^JiiPiiliE BUON DIVERTI MENTO !!!!"- POKEV+4,0 : POKEV+5, 0 

9090 PRINT"XWWMiLIVELLO ? <1-4)" 

9095 GETLIV*: IFLIV$«""THEN9095 

9098 I.. I V=VAL < LI V* > : I FL IV01ANDLIV 02RNDLIV03RNPLI V04THF1 nn?5 

91 fin rnp k-54272T054296 : POKER, O : NEXT : RETURN 
9300 F0PPV-3ÓT0126 1 POKEV+4,PV:POKEV+5,210 : NEXT 
9310 FORACITO13 

9320 POKEV+4,PV:POKEV+5,210 
9325 py-PV+8 


9330 FORIJI-20QTO130 : POKEV+6, PV-8 : POKEV+7, UI : NEXTUI : POKEV+7,0 

9340 0NAG0SUB9510•9520,9530,9540,9550,9560,9570,9530,9590,9600,9610,9620,9630 

9350 FORUI=0TO150 : NEXT:NEXT•F0RK=54272T054296:POKEK,0 :NEXT: RETURN 

9500 REM *** MESSAGGIO ♦** 

9510 POKE1597,32 :P0KE55369,2 : RETURN 

9520 POKE1593,12:POKE55870,2 : RETURN 

9530 POKE1599,9 : RETURN 

9540 POKE1600,19:P0KE55S72, 2‘RETURN 

9550 POKE1601,20 : P0KE55873,2 : RETURN 

9560 POKE1602,32 :P0KE55874,2 : RETURN 

9570 POKE1603,32 :P0KE55375,2 : RETURN 

9530 POKE1604,1 RETURN 

9590 POKE1605,21:P0KE55377,2 : RETURN 

9600 POKE1606,7 : RETURN 

9610 POKE1607,21:P0KE55879,2 : RETURN 

9620 POKE1608,18 : POKE55330,2:RETURN 

9630 POKE1609,1 : P0KE55881,2=RETURN 

970O REM GET *** 

9710 POKEV+4,0 POKEV+5,0 

9714 GF.TEFP* J PEFPfO " " THEN9730 

9715 G0T09714 

9730 F0PK=54272T054296 POKEK ,0 :NEXT: RETURN 
10000 REM *** LASER, BOMBE, ELIC1,ELIC2 *** 


10O01 

10005 

10010 

10020 

10030 

10040 
1 0050 
10060 
10970 
10100 
10110 
1 1 000 


DRTA0,0.0,0,0.0,0,0 • 0,0,0,0,0 • 0,0,0, 0 • 0 ■ 0,0,0, 3, 255.255.0,2 - 0 

TiRTO i 92, ì 70, ì 23,194,150,30,234 ,.150.80,194,170, 163, 192 • 170,163.0, 32,123 

DATAG,170,160,0,0,0,0,0,0,0,O,0,0,O,0,0,0,0 

DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,60•0,0,255.0,0 
DATAI26,0,0,60,0,0,60,0,0,60,0,0,60,0,0,24,0,0.0,0,0.0,0.A 00.0.0,0 
DATA0•0.0,0.0.0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0.0,16 
DATA0,0,16,0,0,16,0,0,124.0,0,214,0,35,215,136,39.215,200,4?.215.232,! 27 
DPTA215,252.127,215,252,0,0,0 
RRM ♦:++: RUMORE ELICOTTERO **+: 


DATAR.2,0.3.0,0.240,12,2,0.4,0,0,192,16,2,0,6•0,«• "4,0,30,243,24 


HtT~ 








r MA PAOLO , E PASSATA ^ 
MEZZANOTTE,VUOI SMETTERLA 
, CON QUELL'AGGEGGIO / 


MALEDETTO IL GIORNO CHE ™ 
GUEL'HO REGALATO, CREDEVO^ 
FOSSE UN BEL GIOCATTOLO, MA 
ANCORA NON RIESCO A CAPIRE 
A COSA POSSA a 

SERVIRE... 1 




























































































































































































































































































































r 5£ HW.RERRI R COMQSCERE QUESTO 
FIONDO E R uuLLFIEDRRRE CON NOI, ILI 
HOTSE" NON fOTff PIU* SEGRETI. 

ORR PUOI CH'EDERA DUELLO CHE 

v l/'uul. 
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DENTRO IL COMPUTER 



Sintesi di un 
sommatore 

binario. 


si nn'i-rrri 

' J - ••• 'V ' 

%). ■ninrr/ / - / 



4 cura di Duccio Alfano 


Per avere un'idea di come si pro¬ 
getti un calcolatore, vediamo co¬ 
me si potrebbe procedere per 
realizzare un possibile circuito 
che esegua la somma di due nu¬ 
meri binari. 

L’elemento di base, vedi LIST n. 
4, deve sommare i due bit corri¬ 


spondenti dei due numeri binari, 
dare in uscita il bit corrispon¬ 
dente della somma e quello 
dell’eventuale riporto (vedi fig. 
1 ). 

Per prima cosa, riassumiamo il 
problema in una tabella della ve¬ 
rità che dovrà avere tre ingressi 
(x n ,y n , cioè le cifre di posto n dei 
due numeri da sommare, r n , ri¬ 
porto dal blocco precedente) e 
due uscite (s n , cifra di posto n 
del risultato, e r„ + i, riporto da 
mandare al blocco successivo). 
La tabella è rappresentata in fi¬ 
gura 2. 


n — sima cifra delia somma 


riporto 

blocco 



per i 


successivo 


Fig.1 


n- sima cifra dellnumero 
n- sima cifra del 2 numero 

riporto del blocco 
p r e c edente 



Realizziamo per primo il circuito 
che dà s n , mediante la tecnica 
“somma di prodotti”. 

Le righe da sommare sono, nel 
nostro caso, la 2, la 3, la 5 e la 8, 
cioè tutte quelle che danno 

s n = 1. 

Prima, però, occorre comple¬ 
mentare gli ingressi che in cia¬ 
scuna riga risultino uguali a ze¬ 
ro. 

Otterremmo in definitiva: 


5/7= (Xr?A Yn A rn)v(XnA YnAr n )V 
(Xn A Yn ATn ) V (XnA Yn A rn ) 
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Analogamente si otterrà: 


rn+t = (XhAYn/\tn)V (*n A VnAr n ) 
V(Xn/\y„Afa)\/(Xn/\ynAr») 



' ■** «Sassi 


t jTn rrr: . 

*fc ■.•--» f < r j 

T&.*- > t - 7 

V- rs-’-Tf": / 





Potremmo quindi realizzare la ci¬ 
fra n-sima della somma median¬ 
te lo schema rappresentato in fi¬ 
gura 3, mentre il resto, da ripor¬ 
tare al blocco succesivo, è rea¬ 
lizzabile mediante lo schema 
rappresentato in fig. 4. 
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Ricordiamo, in fig. 5, i simboli e i 
significati dei principali operato¬ 
ri logici. 

A questo punto, una volta realiz¬ 
zato il nostro scopo, si tratta di 
vedere se il circuito ottenuto sia 
o no il migliore possibile dal 
punto di vista del numero degli 
operatori impiegati, e quindi dal 
punto di vista della semplicità 
realizzativa, del costo ecc. 
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'"Vi - - r- : - !- , 

r . * • > « « 1 1* - 

te • " ' ? • « / 

\ \ , / 



Per ottenere un risultato miglio¬ 
re, possiamo tentare di semplifi¬ 
care le espressioni logiche, rica¬ 
vate mediante la “somma di pro¬ 


dotti”, al fine di ottenerne altre, 
equivalenti dal punto di vista del 
risultato finale, ma che utilizzino 
un minor numero di operatori. 
Quello deM’ottimizzazione dei 
circuiti è un grosso problema, 
che va affrontato per gradi. 
Cominceremo, dal prossimo nu¬ 
mero, a imparare le regole 
dell’algebra (di Boole) per avvici¬ 
narci ad un miglior risultato. 






































Anche voi potere fare STRIKE! 

Ecco svelata la prima delle sorprese 
che LIST aveva annunciato ai suoi fede¬ 
li lettori. 

Già, perché LIST mantiene le promes¬ 
se! 

Ricordate qual’è il nostro impegno (la 
nostra filosofia) dichiarato fin dal primo 
numero? LIST è la rivista dei lettori, fat¬ 
ta per, ma soprattutto dai, possessori 
di home-computer, per scoprire insie¬ 
me le potenzialità nascoste dei nostri 
piccoli amici elettronici. 

Eallora: STRIKE! 

Il grande concorso, gioco, gara, prova 
di fantasia, di abilità e, naturalmente, di 
fortuna. 

Allo spazio di partecipazione che i let¬ 
tori vanno sempre più conquistando 
ora diamo un ulteriore fantastico rico¬ 
noscimento: un montepremi di sei mi¬ 
lioni. 

Tutti all’erta, dunque, tutti mobilitati. 
Lettori-elaboratori-di-programmi e let¬ 
tori-giudici-elettori; i prossimi numeri 
della rivista sono tutti pervoi. 

Come sempre quindi “vinca il migliore” 
e il più fortunato, che in questo gioco - 
confessiamocelo - è importante parte¬ 
cipare, ma è anche importante la vitto¬ 
ria; cioè: la vincita. 

Cinque milioni di lire in gettoni d’oro al 
campione ed un milione estratto tra gli 
e/lettori. Sscussa se è ppocoo! 

Estratto del regolamento 

1) Possono partecipare al concorso a premi 
“STRIKE" tutti i lettori residenti nel territorio na¬ 
zionale, inviando all’indirizzo della redazione pro¬ 
grammi per home-computers che ritengano ori¬ 
ginali e di comune interesse. 

2) I programmi dovranno essere inviati incisi su 
cassetta o registrati su floppy-disk. I programmi 
su carta non potranno essere presi in considera¬ 
zione. 



TEXAS 

ORIC 1 

mpf" 

sincu 5 

SEGAS 

Vie 20 
SHARP 

CBM 

gpECTf 






TI99/4A 


IR ZX-81 
,C3000 

n/iz 7°o 

lUM 



3) Gli elaborati dovranno essere accompagnati 
da brevi note esplicative sul funzionamento e sul¬ 
le possibili applicazioni del programma. Questo 
dovrà contenere aH’inizio del listato delle “REM” 
(istruzioni preliminari) indicanti la denominazione 
del programma, il nome, l'indirizzo ed il numero 
telefonico del suo autore. 

4) L’invio del programma verrà preso in conside¬ 
razione unicamente e soltanto se accompagnato 
dall’apposito tagliando di partecipazione pubbli¬ 
cato sulla rivista. 

I partecipanti al concorso dovranno altresì assu¬ 
mersi ogni responsabilità circa l’originalità dei 
programmi trasmessi. 

5) I programmi dovranno pervenire in redazione 
entro e non oltre il 30 dicembre 1984 e verranno 
preventivamente sottoposti ad una preselezione 
affidata ad una giuria di tecnici ed esperti, com¬ 
posta di cinque persone che, fra i programmi per¬ 
venuti, sceglieranno i dieci migliori (per funziona¬ 
mento, originalità ed interesse del risultato) per 
ogni modello di home-computers ammesso al 
concorso. 

6) Le categorie ammesse sono le seguenti: TE¬ 
XAS TI 99/4A, ORIC 1, SINCLAIR ZX-81, COM¬ 
MODORE VIC-20, COMMODORE CBM-64, 
SINCLAIR SPECTRUM, MPF II, SEGA SC 
3000. SHARP MZ 700 

7) I programmi cosi preselezionati verranno pub¬ 
blicati sui prossimi due numeri (ed eventualmen¬ 
te successivi) della rivista per essere sottosposti 
all’esame dei lettori che saranno chiamati a vota¬ 
re il programma a loro giudizio migliore, median¬ 
te una cartolina-voto che verrà pubblicata sul nu¬ 
mero due dell’anno 1985 della rivista. 

8) I nove programmi più votati conferiranno al lo¬ 
ro autore il titolo di vincitore della categoria, con 
l’attribuzione di un diploma e di un trofeo. 

9) Tra i nove finalisti ed in loro presenza verrà sor¬ 
teggiato il premio finale di cinque milioni in get¬ 
toni d’oro. 

10) Nella medesima occasione, fra tutte le carto¬ 
line-voto pervenute, sarà estratto un ulteriore 
premio consistente in un milione in gettoni 
d’oro 

11) L’estrazione avverrà entro il mese di luglio 
del 1985. 

12) Tutti i nomi di coloro che comunque abbiano 
inviato programmi saranno pubblicati sulla rivi¬ 
sta. 
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Magari ne avete visto uno 
mezz’ora fa, oppure ne state sbir¬ 
ciando un altro proprio in questo 
momento (un occhio allo scherno e 
un occhio a questa pagina di LIST). 
0 forse no; forse è da ieri sera che 
ne siete lontani, da quando è finito 
il tale special della tale tv. 

Sia come sia, comunque, c’è da 
scommettere che anche voi, or¬ 
mai, i video sono diventati un’abi¬ 
tudine quotidiana, di cui tener con¬ 
to nello stabilire quale scegliere t% 
le sempre maggiori opportunità di 
svago e di intrattenimento. 

D’altro canto, sono le stesse occa¬ 
sioni di consumo che si vanno mol¬ 
tiplicando a loro volta in un modo 
che ancora qualche mese fa sa¬ 
rebbe stato impensabile: la com¬ 
parsa del network VideoMusic, uni¬ 
ca emittente mondiale che irradi 
esclusivamente, e grauitamente, 
prodotti video sull’arco delle 24 
ore; la lunga e fitta tournée estiva 
di Carlo Massarini, alias Mister 
fantasy, che sotto il titolo di Video- 
Missione ( un gioco di parole a par¬ 
tire dalla contrazione di “video” e 
di “manomissione”) ha organizza¬ 
to un intero spettacolo basato su 
bizzarri cocktail di clip promozio¬ 
nali e di spezzoni filmici tratti da 
varie altre fonti, tra cui il cinema 
per cosi dire tradizionale; ancora, 
se già tutto questo non fosse abba¬ 
stanza, l’interessamento dei gran¬ 
di settimanali di opinione, su cui 
iniziano ad apparire, accanto a 
quelle riguardanti il cinema, il tea¬ 
tro, la televisione e tutto il resto, ru¬ 
briche dedicate specificamente ai 
video, con l’evidente intenzione di 
indirizzare l’appassionato nella 
selva delle nuove proposte. 

Come si vede, insomma, gli estre¬ 
mi del boom ci sono tutti, e non so¬ 
no pochi quelli che giurano che 
non si tratterà di un fenomeno pas¬ 
seggero e che, viceversa, la ten¬ 
denza continuerà a consolidarsi fi¬ 
no a diventare un ulteriore punto 
fermo nella comunicazione di mas¬ 
sa del nostro tempo. Ma se i dati di 
diffusione, e di gradimento, ap¬ 
paiono cosi perentori, quello che 
resta ancora da stabilire o perlo- 



Vedi che 
musica! 


meno da discutere, è se l'avvento 
dei video abbia in sé qualcosa di 
più interessante e significativo di 
una qualsiasi innovazione nel cam¬ 
po delle tecniche pubblicitarie. 
Infatti, anche se non sempre lo si 
ricorda (vuoi per scelta, per caso, 
o per semplice disinformazione ) 
l’origine dei video musicali è ap¬ 
punto legata alla necessità di pro¬ 
muovere in un modo nuovo, e nuo¬ 
vamente efficace, quella produzio¬ 
ne discografica che sul finire degli 
anni 70 andava accusando preoc¬ 
cupanti ribassi nel volume delle 
vendite e dei profitti. Più che da 
un’esperienza o da un’aspirazione 
di natura propriamente artistica, 
quindi, va da sé che il video nasce 
da una volontà e da una determina¬ 
zione di tipo più pratico. 

Cosi come nelle normali pubbli¬ 
cità, allora, l’obbiettivo non è affat¬ 
to il bello o l’equilibrio o la genia¬ 
lità. No davvero: il bersaglio è inve¬ 
ce l'incisività, la capacità di farsi ri¬ 
cordare fin dalla prima visione, l'at¬ 
titudine a stabilire un legame defi¬ 
nitivo, e il più possibile affascinan¬ 
te, tra il prodotto da vendere e le 
immagini che lo pubblicizzano. 
Tutt’altro che fortuito, in questo 
senso, appare il fatto che la realiz¬ 
zazione dei filmati venga spesso 
delegata in modo pressoché inte¬ 
grale a singoli èsperti o addirittura 


ad agenzie specializzate, come a 
riconoscere che tra le varie tappe 
del percorso che porta la musica 
sul mercato il filo conduttore è, alla 
fin fine, più la professionalità allo 
stato puro che non l’affinità nei 
confronti di uno stesso progetto ar¬ 
tistico. 

In altre parole, insomma, il trend è 
quello di considerare il video, e a 
ben vedere anche il disco stesso, 
come uno dei tanti articoli appron¬ 
tati dall'industria del divertimento 
secondo il classico imperativo che 
vuole comunque indiscutibile ciò 
che si impone al “box-office”. 

Se questa è la tendenza predomi¬ 
nante, però, è anche vero che esi¬ 
stono alcuni casi in cui l'incontro 
della musica e deH’immagine av¬ 
viene con ottimi risultati e, cosa 
forse ancora più importante, in un 
clima di reciproco rispetto e di no¬ 
tevole amalgama delle possibilità 
che vengono offerte da ciascun 
mezzo. Video come “I remember” 
di Peter Gabriel o “René and Geor- 
gette Magritte” di Paul Simon, o 
addirittura “La donna cannone” di 
De Gregori, sono altrettante dimo¬ 
strazioni di un approccio estrema- 
mente attento, nel senso dell’equi¬ 
librio tra la canzone e il filmato e 
della misura nell’impiego delle ri¬ 
sorse tecnologiche, ai nuovi codici 
della cosiddetta “musica da vede¬ 
re”. 

A conti fatti, anzi, sembrano pro¬ 
prio queste le esperienze da cui 
aspettarsi, soprattutto a lungo ter¬ 
mine, le migliori novità in materia: 
e questo perché le loro armi, in ap¬ 
parenza cosi sobrie e discrete, 
hanno una realtà dalla propria for¬ 
za inesauribile dell’evocazione e 
della profondità. 

Meglio “Shock thè monkey” di 
“Thriller”, allora? 

Non sembri poi cosi strano. Sareb¬ 
be solo come preferire Ford Cop¬ 
pola a Spielberg, Bruce Spring- 
steen ai Van Halen, Heemingway a 
Morris West. 

Scelte quasi ovvie, fuori dal Luna 
Park dei bestsellers. 

Federico Zamboni 
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Siamo al mese di settembre e si ri¬ 
torna a scuola. Anno scolastico 
nuovo e, purtroppo, problemi vec¬ 
chi. 

"I programmi di insegnamento non 
comprendono alcune nuove disci¬ 
pline come l'informatica che si av¬ 
via velocemente a condizionare i 
futuri modelli di vita della società; i 
metodi di insegnamento restano 
antiquati; le strutture scolastiche 
sono inadeguate alle esigenze 
emergenti”, queste sono le ormai 
consuete litanie che si sentono ri¬ 
petere ad ogni inizio di anno scola¬ 
stico da parte della classe politica 
senza distinzioni di ideologie, dai 
massimi reggitori del Ministero 
della Pubblica Istruzione, dal mon¬ 
do della produzione, dalle famiglie, 
dagli stessi addetti ai lavori, i pro¬ 
fessori, e, dulcis in fundo, dai più 
diretti interessati, gli studenti, vitti¬ 
me, per molti aspetti incolpevoli di 
una situazione che è ormai giunta 
ad uno stato comatoso. 

La riforma della scuola media su¬ 
periore è in cantiere da anni, ma le 
forze politiche non riescono anco¬ 
ra a trovare su di essa un accordo 
definitivo. 

C’è chi sostiene che questa rifor¬ 
ma, con la individuazione di una 
miriade di indirizzi di studio finirà 
con il sollevare un gran polverone, 
ma senza alcun risultato concreto; 
c’è, invece, chi va giurando che 
essa risente ancora di una menta¬ 
lità troppo conservatrice. 

Insomma, anche se per motivi op¬ 
posti, sono veramente pochi quelli 
convinti che questa riforma servirà 
a qualcosa è cioè a mettere in con¬ 
dizione lo studente, senza per que¬ 
sto rinunciare al patrimonio umani¬ 
stico della tradizione culturale ita¬ 
liana, a lasciare la scuola potendo 
disporre di un bagaglio di cono¬ 
scenze sufficiente a soddisfare le 
esigenze del mercato del lavoro. 
Della riforma della scuola elemen¬ 
tare che ha un inizio di gestazione 
molto più recente rispetto a quella 
della media superiore, gli interes¬ 
sati e gli esperti, tanto per cambia- 
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re, ne parlano solo per polemizza¬ 
re e per scambiarsi feroci accuse 
di incompetenza. 

Ritorna in ballo in questi giorni an¬ 
che la riforma dell’Università, al¬ 
meno per quanto attiene ai criteri 
di accesso alle varie facoltà. 

Esame selettivo prima dell’iscrizio¬ 
ne al corso, numero chiuso e non 
solo per la facoltà di medicina, ob¬ 
bligo di sostenere un certo numero 
di esami nel corso di ciascun anno 
accademico ecc, sono tra le non 
poche novità che il governo avreb¬ 
be in animo di introdurre per ren¬ 
dere più seri gli studi universitari. 
Ma basteranno questi provvedi¬ 
menti a compiere il miracolo? 

E quando si prowederà a mettere 
in condizione gli studenti che han¬ 
no voglia di studiare sul serio, e 
non sono pochi, di disporre di strut¬ 
ture adeguate per la ricerca e la 
sperimentazione? 

Non si pretende che le nostre uni¬ 
versità, di colpo, si pongono al pas¬ 
so di quelle più celebri, americane, 
inglesi o tedesche, ma pur restan¬ 
do con tutti e due i piedi per terra, 
nemmeno si può più tollerare che 
esse scivolino lentamente ai livelli 
di quelle dei paesi del tezo mondo. 
In tutto questo bailamme della ri¬ 


forma della scuola italiana si riu¬ 
scirà a trovare un posticino anche 
per l’informatica? Sapprà il legisla¬ 
tore tenerne conto nella giusta mi¬ 
sura? 

Staremo a vedere. 

Giovanni Maria Pollicelli 



Lieto evento in casa 
Commodore 


La COMMODORE ha annunciato 
che '‘sostituirà” il vecchio VIC20 
con il COMMODORE 16 (16K con¬ 
figurazione base). 

Negli Stati Uniti il prezzo del nuovo 
nato dovrebbe essere di circa 100 
dollari. 

Esteticamente il CBM 16 si presen¬ 
terà come gli ormai famosissimi 
VIC 20/CBM64, ma per quel che ri¬ 
guarda il computer in sé sarà mol¬ 
to simile al COMMODORE 264 - 
conosciuto anche come PLUS 4, 
che mette a disposizione dell’uten¬ 
te 60K di memoria, più programmi 
di word Processor Spreadsheet, 
Filer e Graph Drawe - tanto è vero 
che il sofware del CBM 16 sarà 
compatibile con il CBM 264. 


51 









NEWS & NEWS 


Computer- 

Grafica. 

Si assiste negli ultimi mesi ad un 
massiccio uso dei computers nel 
campo artistico. 

Da qualche tempo nell’lperspazio 
di una nota trasmissione televisiva 
ha fatto la sua comparsa la grafica 
di Mario Convertino e dei suoi col- 
laboratori, che spesso si avvalgo¬ 
no di quella parte dell’informatica 
che è la computer-art. 

In un campo diveso e non certo 
meno importante, la coreografa 
Twyla Tharp affianca ai suoi balle¬ 
rini una figura femminile tridimen¬ 
sionale, realizzata da un sofistica¬ 
to computer e, proiettata con raffi¬ 
nate tecniche, in sincrono con le 
musiche eseguite. 

Soprattutto negli U.S.A. molte ditte 
si stanno specializzando in questo 
specifico settore. Pe fare qualche 
nome: la ISSCO nel software, 
MEGATEK Co, ENVISION, 
TKTRONIX, EVANS & SUTHER- 
LAND nell’hardware. 



• »roin», ut a 


Una forte spinta allo sviluppo del 
settore è stata data dal cinema e 
sicuramente dalla pubblicità. 

Per il primo caso pensate all’onda 
di successo di alcuni film come 
Tron e simili. 

Nel secondo caso soffermiamoci 
sul caso Seven Up. 

Una bevanda che viene largamen¬ 
te consumata da una fascia di gio¬ 
vani compresa nella maggior parte 
trai 15 e i 21 anni. 

Cosa c’era di meglio di un perso¬ 



naggio da videogame per presen¬ 
tare il prodotto? 

L’agenzia pubblicitaria inglese Leo 
Barnett ha pensato bene di affida¬ 
re tale compito al famoso “PAC- 
MAN”. 

Inizialmente la realizzazione dello 
spot è avvenuta usando metodi 
grafici tradizionali, ma i risultati so¬ 
no stati deludenti e si è scelta la 
Robert Abel di Los Angeles, spe¬ 
cializzata in computer-animation, 
per lo spot definitivo, 
volendo tralasciare per un attimo 
la multinazionale della sete, pren¬ 
diamo in considerazione gli impro¬ 
babili viaggi tridimensionali dei tre 
solidi che identificano le reti televi¬ 
sive nazionali. 

Anche in questo caso la realizza¬ 
zione dello spot è avvenuta fuori 
dal territorio nazionale, ancora una 
volta presso un’agenzia pubblicita¬ 
ria inglese il cui punto di forza è la 
computer-animation. 

Strano paese l’Inghilterra: signori 
compassati con ombrello e bom¬ 
betta e rivoluzionari artistico- 
culturali dietro ogni angolo. 

Anche i prodotti per uso grafico 
presentati su queste pagine, sono 
realizzati da un’agenzia pubblicita¬ 
ria inglese che ha creato in proprio 



Si? 

















:: 

:: 


NEWS & NEWS 


u / 


software da impiegare su home 
computer in questo specifico cam¬ 
po di applicazione. 

Qual’è l’Arte e dove finisce l’elet¬ 
tronica? 

È sempre più difficile tracciare una 
immaginaria linea di demarcazio¬ 
ne tra i due campi. 

Surrealismo ed elettronica posso¬ 
no essere un miscuglio artistico 
che definire esplosivo forse è po¬ 
co. 

Se ne può avere un’idea se riuscite 
a rintracciare un VIDEO di Paul Si¬ 
mon (Simon & Garfunkel) dedicato 
alle opere del pittore belga René 
Magritte trattate opportunamente 
con un microprocessore. Ma que¬ 
sto è un campo particolare, infatti 
non dimentichiamo i rapporti tra 
musica e computer (vedi LIST N° 
4,5pagg. 39 e 86). 

Grafica col computer non è solo 
questo! È anche Architettura, De¬ 
sign, Topografia e tutti quei campi 
in cui il computer coadiuva il lavo¬ 
ro di progettisti o disegntori, sosti¬ 
tuendo i tradizionali strumenti di 
rappresentazione con una miriade 
di punti luminosi su uno schermo 
televisivo o, ulteriore perversione 
tecnologica, per mezzo di un 
PLOTTER, disegnando con un 
braccio meccanico direttamente 
sulla carta. 

Un campo, quello della grafica 
computerizzata, tutto da scoprire 
ed esplorare. 



Noi abbiamo cominciato da poco 
tempo; simulando la matita, la 
gomma, la riga ed il compasso con 
un JOYSTICK! 




Otput su stampante 



Il risultato? 

Sicuramente poco appariscente, 
ma altrettanto importante, anche 
per il non poco tempo impiegato. 



Lo vedete in queste pagine ed è il 
simpatico pupazzo che identifica 
la nostra rivista: LIST, per l’appun¬ 
to. 

Sono giunti in redazione due pro¬ 
dotti per lo Spectrum destinati agli 
amanti della grafica. 

Sono realizzati dalla PRINT ‘N’ 
PLOTTER PRODUCTS e si chiama¬ 
no PAINTBOX e SCREEN 
MACHINE. 

Sono una raccolta di routines in li- 
guaggio macchina che permetto¬ 
no con l'aiuto di un joystick Kemp- 
ston o con la semplice tastiera, di 
disegnare con grande facilità in al¬ 
ta risoluzione o se preterite, di 
creare un magnifico Test Editor 
con caratteri personalizzati e ma¬ 
nipolare poi le immagini ottenute, 
creando degli ingrandimenti, delle 
riduzioni o sovrapposizioni e delle 
animazioni. 

Nella parte demo di ogni cassetta 
ci sono molti esempi al riguardo. 
Tra i migliori segnaliamo quello 
che mostra alcuni cavalli al galop¬ 
po ed un altro riguardante una ma¬ 
gnifica riproduzione di una coperti¬ 
na della rivista VOGUE. 

In questo numero vi presentiamo 
alcune delle possibilità grafiche di 
tali prodotti. 

Il costo di ogni programma, ac¬ 
compagnato da un libretto di istru¬ 
zioni in lingua inglese si aggira sul¬ 
le 9 sterline. 


Massimo Truscelli 
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Bcmcmas 

Un gioco ambientato ai Tropici. 

Dovete raccogliere, saltando, le banane che si trovano sopra di voi. 

Ogni volta che ricadete a terra , il terreno si trasformerà in sabbie mobili. Fate quindi attenzione a non 
ricadere nello stesso punto una seconda volta o verrete " inghiottiti" dalla palude. 

Totalizzati500punti , sullo schermo apparirà, per rendere la vostra impresa più difficile / una scimmia 
un po' dispettosa che tenterà di ostacolare la vostra raccolta. 

A 1.000punti comparirà sullo schermo una seconda scimmia. 

Vi muovete a destra e a sinistra mediante i tasti cursore 5 e 8. 

Attenzione! Le lettere maiuscole fra virgolette vanno digitate dopo essere entrati nel modo grafico 
(GRAPHICS -G). 


1 GO SUB 4.00: GO SUB 500 

2 LET totale =0. LET punti=0 

3 LET X =1 

4 LET 9*="H“ 

5 LET C =20 : LET d =5 

6 LET m =12: LET n =23 

7 LET p =12 : LET q=7 
10 DIM a(3): DIM b(20) 

20 LET b$s"*" 

30 FOR d =1 TO 3: LET a(d)=d: N 
EXT d 

4.0 FOR e =1 TO 5. LET b(e)=e+2: 
NEXT e 

50 FOR f =6 TO 10: LET b < f ) = f+4. 

: NEXT f 

50 FOR g =11 TO 15: LET b(g)=g + 
6: NEXT g 

70 FOR b =16 TO 20: LET b(h)=K + 
8: NEXT h 

75 FOR Z=0 TO 31: PRINT RT 21, 
z; INK 4.; PRPER 7;“»“: NEXT Z 
80 PRINT RT a(1),b(2); INK 6; 
PRPER 7; b»;RT a <1> , b ( 4 ) ; bf;RT al 

i) .. b ( 6 ) ; b $ ; rt a ( i) , b (©) ; b»; RT a( 

1) ,b(10);b$;RT a (1) ,b(12);b»; RT 
a(l) , b ( 14.) ; b»; RT a ( 1) , b 116) ; b»; R 
T a (l) r b(l8) ; b$;RT a ( 1) , b (20) ; b* 

90 PRINT RT a(2),b(l); INK 6; 
PRPER 7;b$;RT a (2) ,b (3) ; b»;RT at 

2) , b ( 5 ) ; b $ ; RT a (2) > b (7) i b|; RT a( 

2 ) , b ( 9 ) ; b $ ; RT a (2) , b (11) ; b$; RT a 

(2) , b (13) ; b * ; RT a (2) , b ( 15) ; b»; RTT 

a (2) .b(17) ; b$;RT a (2) ,b(19) ; b$ 
95 PRINT RT a(3),b(2); INK 6; 
PRPER 7;b$;RT a( 3 ),b(4);b$;RT a< 

3) , b(6) ; b $ ; RT a(3) , b (8) ; b»; RT a ( 

3) , b ( 10) ; b » ; RT a (3) , b(12) ; b»,RT 

a (3) , b ( 14) , b$; RT a (3) , b ( 16) ; b»; R 
T a (3) ,b C18) ; b» ; RT a (3) , b (20) ; b» 
100 IF SCREEN* (C,d)=”*” THEN P 
RINT RT C , d ; **: BEEP . 01, d: LET 

punti*puntiile : LET totale=tota 
le +10 

105 PRINT RT 12,0;” - 

^ ^ ^ _— —r — M 

110 IF PUD ti =300 TMEN GO SUB 70 
0: LET PUD ti=0 : GO TO 75 
120 IF fìTTR ( C ,d )=60 THEN PRINT 
RT C , d ; •*—**: BEEP .1,0: LET X = 1 
130 IF SCREEN» (C,d)=" ” RND C= 
21 THEN GO TO 600 __ 

135 print rt ;p 

unti ;trb 21 ; ‘; tota le 

137 IF X = —1 THEN LET g» = ”«J” 

138 IF X =1 THEN LET g» = ”H” 

139 IF C=1 THEN LET g*=”I” 

14.0 PRINT RT C , d ; g » 

14.5 IF tota le >=500 THEN PRINT R 
T m,n; INK 2;"K”: BEEP ,01,n 
14.7 IF tota le > = 1000 THEN PRINT 
RT P,q; INK 1; ”K” 

150 IF C=1 THEN LET X*-l 
153 IF tota le >=500 RND C =» RND 
d=n THEN GO TO 800 
156 IF tota le > = 1000 RND C=P RND 
d =q THEN GO TO 800 
160 PRINT RT C,d;” ” 


162 IF tota le>=500 THEN PRINT R 
T m,n; INK 0; 

164- IF tota le >=1000 THEN PRINT 
RT P,q; INK 0;"-” 

165 LET C = C-X 

170 IF INKEY » = ”5” THEN LET d*d- 
. 5 

180 IF INKEY »■”8” THEN LET d=d + 
.5 

182 LET S =INT (RND *3) 

185 IF tota le >=500 RND d<n RNC 
S=1 THEN LET n =n-S 

187 IF tota le>=500 RND d>H RND 
S =1 THEN LET n=n+S 

188 LET t =INT (RND *3) 

190 IF tota le > = 1000 RND d <q RND 
t=l THEN LET q=q-S 

195 IF tota le > = 1000 RND d>q RND 

t=l THEN LET q=q + t 

197 IF n*q THEN LET q=n-l 

200 GO TO 100 

4.00 PRINT RT 2,10; FLRSH 1; ”B R 
N P N R 5 n 

4.05 PRINT RT 5,0;” In questo g 
ioco dovete racco-gliere quante 
Piu' banane possi-bili. Fate at 
tenzione a non sci-volare e cade 
re quindi nella pa-lude.” 

PRINT RT 12/3; FLRSH l;” RT 
TENZIONE RLLE SCIMMIEIM” 

4-10 PRINT RT 20,0; FLRSH 1; ”Pr« 
nere un tasto per iniziare...” 
4.13 PRUSE 0 
4.17 CLS 
4-20 RETURN 

500 FOR k=0 TO 7: RERD b: POKE 
USR ”h"+k,b: NEXT k 
510 DRTR 24., 36,153,126,24., 100, 1 
32 4 

530 FOR k=0 TO 7: RERD b: POKE 
USR ** i " ♦ Il , b : NEXT II 
54-0 DRTR 68,4.0,4-2,29,29,234., 8,4. 
550 FOR k =0 TO 7: RERD b: POKE , 
USR ”J”+k,b: NEXT k 
560 DRTR 4., 132,100,24., 126,153,3 
6,24 

570 FOR K =0 TO 7: RERD b: POKE 
USR “ Il ” + k , b : NEXT k 
580 DRTR 18,42,18,124,184,164,1 
68,255 
590 RETURN 

600 FOR X =0 TO 20: PRINT RT C -X 
,d; ”GLUG": BEEP .5,C -X : NEXT X: 
CLS : PRINT RT 10,4;“PUNTEGGIO = 
";totale: STOP 

700 CLS : BEEP .1,20: BEEP .1,1 
7; BEEP .2,13: BEEP .2,13: BEEP 
.1,13: BEEP .1,15: BEEP .1,17: B 
EEP .1,18: BEEP .2,20: BEEP .2,2 
0: BEEP .2,20: BEEP .2,17 
710 RETURN 

800 FOR a =0 TO 30: BEEP .01,a: 
NEXT a: FOR a=30 TO -30 STEP -1: 
BEEP .01,a: NEXT a 

810 PRINT RT 10,2;“LE SCIMMIE U 
I HANNO PRESO!!!”;RT 11,3;“PUNTE 
ggIO = totale: STOP 
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Vie 20 


Tabelline 

Questo piccolo programma ha lo scopo di controllare, in modo divertente, le conoscenze relative alle 
tabelline della moltiplicazione. 

Il computer "chiederà" qual è la tabellina sulla quale si vuol essere "interrogati". Bisognerà poi "di¬ 
re" al calcolatore entro quanti secondi dovrà essere data una risposta. Se si fornisce un risultato erra¬ 
to o il tempo è scaduto il computer conterà un errore e lo evidenzierà con un suono sgradevole. 

Il programma tiene conto di tutti i principi dell'Istruzione Programmata. Gli input sono protetti: se, ad 
os., si dà il RETURN senza aver battuto una risposta viene rirormulato il quesito ma non vi è conteggio 
di errore. 

REflBV. 

i rem############*####### 


2 ■REM#* *# 

3 REM# MRRINO CORETTI # 

4 REM# # 

5 REM# V.PETRONIO 16 # 

6 REM# # 

7 REM# TRIESTE # 

8 REM## ## 


9 REM#################### 

10 FRINT 

15 PRINTCHR* <147 ) : PRI NT TRE < 7 > CHR$ 08)" TREELLI NE " : PPI NT • PRI NT 
20 N=-1 : INPIJT " TREELL. 1NR " ; N ' PR I NT 
30 IFN=-1THEN20 

40 S=-1 :PRINT"TEMPO RISPOSTR <SEC>": INPUTS = PRINT :PRINT 
50 IFS--1THEN40 
60 PR I NTCHR$047) 

70 R$="":PRINT"VUOI VEDERE":PRINT"Lfì TREELLINR <S/N>" 

80 INPUTRf : IFR$=""THEN80 

90 IFRT•= " N " THEN140 

100 FRINT : FORJ=0TO10 

110 PRINTN"X"J"= "N#J:NEXTJ 

120 PRINTOPPINT"PREMI UN TRSTO" 

130 CETO*:IFQ$=""THEN130 
140 PRINTCHRT<147)•DIMT 01) 

150 FORX*1TO11 :RERDT<X):NEXTX 
160 F ORX=1TO11 
170 W=-1 

180 PRINTN"X"T<X); 

19Ù TI t ="000000": INPUTU:K=VRL< T1 1 ) 

200 IFK>*STHENPRINTERRINT 1 "TEMPO SCRDUTO":G0T0230 
210 IFW=-1THEN180 
220 IFW=N#T < X)THEN290 

230 PRINT :PRINTTRE<8)CHR$O8)"IGNORRNTE":E=E+1 

240 RR=36370:EB=36874:POKEflfl/15 

250 F0RJX=145T0241 

260 POKEBB/JX : FORDD=1T05:NEXTDD 

270 NEXTJX:POKEBB.0 : POKEflfl,0 

280 FRINT : FRINT"LA RISPOSTA ERR ";T<X)#N:GOTO300 
290 PRINT :PRINT"ESATTO" 

300 PRINT : PPINT : PRINT : PRINT"F’REMI UN TRSTO" 

310 GETQ$ : IFQ$=""THEN310 
320 PRINTCHR$047> 

330 NEXTX 

340 PRINTTRB<4)"FINE PROGRAMMA" : FRINT :PRINT'"ERRORI ";E 

350 PRINT ; PRINT : END 

36G DRTfl2,0,5,7,3,9 

370 DATAI,4,8,6,10 

READY. 
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Giardinaggio 

Il vostro giardino ha bisogno di qualche cura: è tempo, dunque, di fare un po'di "giardinaggio". 

Le rose non sono ancora sbocciate: bisogna correre ai 'ripari'con un po'ai fertilizzante naturale. 

Ed allora, forzai "Armatevi" di pala e andate a raccogliere quanto "depositato" dal cavallo che si 
aggira nei dintorni per poi porlo alla base delle votre piante. 

Vi muovete mediante i tasti cursore (5, 6,7, 8). 

Attenzione! Le lettere maiuscole fra virqolette vanno digitate dopo essere entrati nel modo grafico 
(GRAPHICS-G). 


1 REM *********************** 

2 REM ** ** 

3 REM * GIARDINAGGIO * 

4 REM ** ** 

5 REM * ZX-SPECTRUM 16K/4-8K * 

6 REM ** ** 

7 REM *********************** 


8 REM 

10 GO SUB 9000 
20 GO SUB ©000 
30 GO SUB 7000 
40 GO SUB 6000 
50 LET t=t-l 

60 PRINT INK 3; RT 1,6; t;** *’ 

70 IF t=0 THEN GO TO 4000 
80 GO TO 30 

4000 INPUT -premi enter per gioc 

are ";u $ 

4010 GO TO 20 

5000 PRINT FLASH l;RT 21,10;*' B 
R R U O ! *' 

5100 GO TO 4000 

5500 PRINT RT hy-l,hhx;“ RT 

hu , hhx; " RB ’* ; RT hy+l,hhx;“ CD 
**; INK 2; FLRSH i; OUER l; RT hy + 
l , hhx +l; "NO" 

5510 FOR q=0 TO -30 STEP -1 
5520 BEEP .05,q 
5530 NEXT q 
5540 GO TO 4000 

6000 LET X1 = X+ ( INKEY*="B" RND X< 
30)-(INKEY$="5" RND X>0) 

6010 LET y l=y + C INKEY*="6" RND y< 
19) - ( INKEY$ = "7" RND y>3) 

6020 IF y =y1 RND X =X1 THEN RETUR 
N 

6030 PRINT RT y , x ; " **; RT y+i,x;** 

6040 IF RTTR (yl,Xl) >56 OR RTTR 
(yl+l,xl)>56 THEN LET yl=y: LET 
X 1 = X 

6050 IF RTTR (yl+l,Xl+l)>127 THE 
N LET S=l: GO TO 6080 
6060 IF RTTR (yl + l,Xl + l)>56 THEN 
LET y l=y : LET X 1=X 
6080 PRINT INK 1;RT yl,xl;"E";RT 
y1+1,x1;"FG" 

6090 IF S=1 THEN PRINT INK 4; OU 
ER lj FLRSH l; RT y 1 + 1 , X 1 + 1 ; ** H " 
6100 IF RTTR (yl,xl+2) <>58 RND s 
=1 RND y1=19 RND Xl>0 THEN PRINT 
INK 2;AT 19,Xl+2; "U": LET S=0 : 
LET r =r + 1 

6110 PRINT INK 3;RT 1,29;f 
6120 IF r =10 THEN GO TO 5000 
6130 LET x =x 1 : LET y=yl 
6140 RETURN 
7000 LET h X = h X +1 

7010 IF h X =30 THEN LET hX=32 
7020 IF hX =62 THEN LET hX=64 
7030 IF h X =94 THEN LET hx=0 
7040 IF hX <31 THEN LET hy=3: LET 
hhx =hX 

7050 IF hX >31 RND hx<63 THEN LET 
hy =10 : LET hhx =hX —32 
7060 IF hx >63 THEN LET hy=17: LE 
T hhx =h X —64 

7070 IF h X =32 THEN PRINT RT 3,30 
; " RT 4,30; " 

7080 IF h X =64 THEN PRINT RT 10,3 
0; " RT 11,30; ** 

7090 IF h X =0 THEN PRINT RT 17,30 
; ; RT 18 # 30 ; •• 




GIRRDINRGGIO 

TEMPO =20 

ROSE =010 

A A A A A A 




Adi A 

;U T 4 

r T T T T T T > 

B R R U 0 ! 


7100 IF RTTR (hy,hhX+l) =57 OR RT 
TR (hy+l,hhX+l) =57 THEN GO TO 55 
00 

7105 IF RTTR Chy,hhX+2)=57 OR RT 
TR (hy+1,hhx+2)=57 THEN GO TO 55 
00 

7110 PRINT RT hy,hhx;" RB";RT hy 
+1,hhx;" CD" 

7115 IF hhx =0 THEN GO TO 7130 
7120 IF RND>0.98 THEN GO SUB 750 
0 

7130 RETURN 

750© PRINT INK 4; FLRSH 1;RT hy+ 

1 , hhx; "H" 

7510 FOR q = 1 TO 20 

7520 BEEP .01,-20: BEEP .01,-10 
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7530 NEXT q 
■754.0 RETURN 
S 000 BORDER 5: CLS 
3005 LET t =500 

3010 PRINT PRPER 2; INK 7;RT 0,1 
0;"GIARDINAGGIO" 

8020 PRINT INK 3;RT 1,0;"TEMPO=" 
t ; RT 1,23J "ROSE =0" 

6030 PRINT INK 2;RT 6,3; "L^l LMH 
" , RT 6,12; ••LBM*’; RT 6,20; "LlM lBm 
LS aM" 

804-0 PRINT INK 6 ; RT 7,3; "K®<. K®< 
AT 7,12; "kBk•• ; RT 7,20; "KlK K®K 
K^" 

8050 PRINT INK 6 ; RT 8,3; BK* 

";rt 8 ,12 ; "|KB"; rt 8,20;"|k| Bk.£ 

■KB” 

8060 PRINT INK 2; RT 13,1,"LBM L* 

; RT 13,13; "L|M LBM";RT 13,25;" 
L-Hm” 

3070 PRINT INK 6;RT 14,1; "K®K Kfl 
K" ; RT 14,13;"KBK kBk ** ; RT 14,25," 
K®K •* 

8080 PRINT INK 6;RT 15,1; 0K 

«••;RT 15,13 ; " HKfl ÌÉK| * * ; RT 15,25," 

3090 FOR q=3 TO 30 STEP 3 
8091 PRINT INK 4;RT 20 , q , "I" 

3092 NEXT q 

8100 PRINT RT 3,1;"RB";RT 4,1;"C 

D" 

8110 PRINT INK l;RT 19,0; "E*’ ; RT 

20,0; "FG” 


8120 LET X»0: LET y = 19: LET hx=0 

: LET hy =3 

8130 LET r =0 

8140 LET S —0 

3200 RETURN 

9000 FOR asUSR “a** TO U5R "0”«-7 
9010 RERD b: POKE 4,b 
9020 NEXT 4 
9030 RETURN 

9110 DRTR 0,0,0,0,127,255,255,25 
5 

9120 DRTR 8,28,58,127,243,224,22 
4,224 

9130 DRTR 127,192,160,160,144,14 
4 , 72 , 0 

9140 DRTR 224,32,60,72,136,132,6 

8,0 

9150 DRTR 0,56,56,16,48,88,148,8 

9160 DRTR 88,20,18,41,72,132,132 
, 198 

9170 DRTR 0,0,0,0,128,64,60,0 
9180 DRTR 0,0,0,0,24,60,0,0 
9190 DRTR 8,6,8,8,8,6,6,8 
9200 DRTR 0,0,60,126,126,255,189 
, 28 

9210 DRTR 255,195,195,195,195,19 
5,195,195 

9220 DRTR 0,3,7,15,31,63,127,255 
9230 DRTR 0,192,224,240,248,252, 
254,255 

9240 DRTR 0,0,0,0,0,3,183,255 
9250 DRTR 0,0,0,0,0,98,187,255 


Stendiamo il bucato 


Scopo del gioco (da 1 a 5 giocatori) è quello di stendere il bucato cercando di non rompere il filo sul 
quale si deve farlo asciugare. 

Il punteggio è in relazione ai panni che si decide, a turno, di stendere: più i panni sono pesanti, più il 
punteggio è alto. 

A rendere più complicata la scelta fra i panni da stendere (pantaloni, maglie, calze, ecc.) provvedono 
degli uccellini, dei quali non si conosce il peso, che si posano di tanto in tanto sul filo appesantendolo. 
Istruzioni complete inserite nel listato. 


1 PRINT RT 10,5; "ST E NDIAMO IL 
BUCRTO! ! ! "; LET prn=0: GG SUB 10 

00: DIM b $ ( 2 ) : LET b$(l)*"P": LE 
T b$ (2) = ,, Q" 

2 DIM t $ (2) : DIM r$(2); DIM p 
$(2,2): DIM J $ (2,2) : DIM S$il): 
DIM u $ (3,2) 

3 LET t$(l)= " R " : LET t|(2)=”S 
" : LET f$(1) = "T": LET r$(2)="U": 

LET ll$ (2.) = "LM" : LET v $ < 3.« = " NO " : 
LET p$(1)="AB": LET p$(2)«"CD"; 
LET j$ll) ="FG": LET J $ ( 2 ) = " HI ** : 
LET S$(1)b”J* > ; LET U$(1)="K*’ 

4 INPUT "ISTRUZIONI? (s/n)";a 
$ : IF a $ = "S” THEN GO SUB 2000 

5 BORDER 5: PRPER 7: INK O; C 

LS 

6 INPUT "Dfl 1 R 5 GIOCATORI ** 
; P 

7 IF p>5 THEN GO TO 50 

8 DIM n $ (p , 4) 

9 FOR f=l TO p: INPUT "Nome 
giocatore "; ( f);n $ ( f) : NEXT f 

10 PRINT RT 0,5;"I L BUCA 
T O » " 

15 PRINT RT 1,13; "PUNTI MAX.*'; 
pm 

20 PRINT RT 21,0; INK 4;" 

30 FOR 2=10 TO 20: PRINT RT Z, 
0; INK 3; " |” ; RT 2,31; INK 3 ; "I *• ; 
NEXT Z 

40 PLOT 0,96; DRAU 255,0 
70 DIM S(f): LET S(1)=0: LET S 
(2) =0 

80 LET pp =1: LET x=2 : LET y=l 
90 LET pio =500 : LET Jw=400. LET 
V W =100 : LET uui=75: LET SU* =50 
95 LET gt=2500+INT (RND*1000)+ 

100 


97 LET tw=0 
100 FOR /=1 TO P 

110 PRINT INK 0 ; RT 2,0,n$(f); # * 


120 PRINT INK 0 ;RT 3,0;"Panno? 
P»pantaioni «maglietta s =slip 
viveste (scalza g=gonna s c =s cia 
rpa": INPUT a$ 

130 IF a $ = "P" THEN GO TO 200 

140 IF aSs"»" THEN GO TO 250 

150 IF a $ = "v“ THEN GO TO 300 

160 IF a S = "S *' THEN GO TO 350 

170 IF a $ = "C" THEN GO TO 400 

171 IF a $ = "S C" THEN GO TO 450 


172 IF a $ = '*' 
175 GO TO 1! 


THEN GO TO 500 


180 IF INT CRND*10)=5 THEN GO T 
O 700 

185 IF pp > *31 THEN GO TO 850 
190 NEXT f 
195 GO TO 100 

200 LET tw=tw+500+INT (RND*20) 

201 OUER 1 

210 IF t w > =g t THEN GO TO 800 
220 LET S( f ) =S( f )+2S+INT (RNDtl 
1) 

230 INK INT ( RND *7) : PRINT RT 1 
0/PP;PS(1);RT il,pp;p$ (2) 

235 LET pp=pp+2 

236 OUER 0 

237 BEEP .1,25 
240 GO TO 180 

250 LET tu» = tui +4-00 + INT (RND*15) 

251 OUER 1 

260 IF t u» > =g t THEN GO TO 800 
270 LET S (f) =s (f) +20fINT (RND *1 
1) 

280 INK INT (RND *7) : PRINT RT 1 


* 
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0,PP, J% il) ; RT 11, p p ; J » < 2 ) 

265 LET p p =p p +2 

266 OVER 0 

267 BEEP .1,20 
290 GO TO 130 

300 LET tw=ttal+100+INT (RND»15) 

301 OVER 1 

310 IF t w > =9 t THEN GO TO 600 
320 LET S ( f ) =S ( f ) + 15 + INT (RND*1 
1) 

330 INK INT iRND*7): PRXNT RT 1 
0,PP,u$(2.i;RT ll,pp;u*(3> 

335 LET pp=pp+2 

336 OVER 0 

337 BEEP .1,15 
34-0 GO TO 130 

350 LET tw=tw+75+INT (RND*15> 

351 OVER 1 

360 IF tw >=g t THEN GO TO 600 
370 LET S (f) =S ( f) +10 + INT ( RND*1 

) 

380 INK INT (RND*7): PRINT RT 1 
0iPP;u$(l) 

365 LET pp=pp+l 

366 BEEP .1,10: OVER 0 
390 GO TO 180 

4-00 LET tu' *t W +50 +INT (RND*15) 
4-01 OVER 1 

4-10 IF t io > = g t THEN GO TO 800 
4-20 LET S (f) =S (f) +5+-INT ( RND » 11 

) 

4-30 INK INT (RND*7) : PRINT RT 1 
0,PP;s$(l) 

435 LET pp=pp+l 

436 BEEP .1,5: OVER 0 
4.40 GO TO ISO 

4-50 LET tw =t u« +250+INT (RNDJH5.1 
4-51 OVER 1 

460 IF t W >=g t THEN GO TO 300 
470 LET S ( f) *S ( f ) +17 + INT ( RND * 1 

1) 

430 INK INT (RND*7): PRINT RT 1 
0,PP; t $ (1) ; RT ll,pp;'t$(2) 

465 LET pp=pp+l 

486 BEEP .1,17 OVER 0 

490 GD TO 180 

500 LET tw= tW4450+INT (RND*25> 

501 OVER 1 

510 IF tw>=gt THEN GO TO 800 
520 LET £ m as ( D +224INT (RND 4 X 
1) ^ 

530 INK INT (RND*7): PRINT RT 1 
0,pp;f$ (1) ;RT ll,pp;r$(2) 

535 LET pp=pp+l 

536 BEEP .1,22: OVER 0 
540 GO TO 180 

700 INK 0: LET X=2: LET y=31: L 
ET t y =INT (RND #31) 

705 LET tx=(31-ty)/5 
710 FOR 9=31 TO ty 5TEP -1 
720 PRINT RT X,g;"Q";: PRUSE 5: 
PRINT RT x , g ; ** ” 

730 NEXT g 

740 FOR 9=2 TO 9: PRINT RT g,ty 
;"Q": PRUSE 5: PRINT RT 9 , t y ; " " 

: NEXT g 

750 PRINT RT 9,ty;"P" 

760 LET tw=tw+50+INT (RND*1011 
765 IF tw>=gt THEN GO TO 800 
770 LET S( f) *SCf)+INT CRND*25)+ 
25 

780 GO TO 185 

798 PRINT RT 0,0;“PASSERO"; GO 
TO 185 

799 STOP 

800 OVER 0: PRINT RT 10,pp+l;"E 
";RT 9,pp; "CRfiCK": BEEP 1,-10: P 
RINT "Il giocatore ";f;" ha pers 
o " 

801 LET s(f)aS(f)-25 

802 PRUSE 100 

810 INK 0: FOR (=1 TO p: PRINT 
RT 9 + f,0;"Giocatore f;" ";n*(f 
);** "; f 'Punt i s ( f ) : NEXT f 

815 FOR f =1 TO p: IF S ( D >P» TH 
EN LET p» =S ( f ) 

816 NEXT f 

820 INPUT "Un'altra partita?(s/ 
n)a $ 

830 IF a$="£" THEN GO TO 870 
840 IF ai="n" THEN STOP 
845 GO TO 820 

850 PRINT "Filo pieno!!! Tutti 


i giocatori perdono." 

860 PRINT RT 9,28 ; "CRRCK *' ; RT 10 

,30;"E": GO TO 810 
870 INPUT "Stesso numero di gio 


catori?(s/n) a$ 

660 IF a*="5" THEN GO TO 900 
890 IF a*="n" THEN GO TO 4 
895 GO TO 870 

900 INPUT "istruzioni? (s/n)";a 

$ 910 IF a 4 = "S" THEN GO SUB 2000; 
CLS : GO TO 10 

930 IF a*="n" THEN CLS ; GO TO 
10 

940 GO TO 900 
1000 FOR U =144 TO 164 
1010 FOR f=0 TO 7: RERD a: POKE 
USR CHR $ U + f , a : NEXT f : NEXT L« 
1020 RETURN 

1050 DRTR 15,15,15,15,14,14,14,1 
4 

1060 DRTR 240,240,240,240,112,11 
2,112,112 

1070 DRTR 14,14,14,14,14,14,14,1 
4 

1080 DRTR 112,112,112,112,112,11 
2,112,112 

1090 DRTR 145,82,0,8,82,0,74,137 
1100 DRTR 3,7,63,63,55,55,55,55 
1110 DRTR 192,224,252,252,236,23 
6,236,236 

1120 DRTR 55,55,7,7,7,0,0,0 
1130 DRTR 236,236,224,224,224,0, 
0,0 

1140 DRTR 20,20,20,20,20,20,119, 
119 

1150 DRTR 255,255,255,126,60,24, 

0,0 

1160 DRTR 4,4,6,7,7,7,7,7 

1170 DRTR 32,32,96,224,224,224,2 

24,224 

1180 DRTR 7,7,7,7,7,0,0,0 
1190 DRTR 224,224,224,224,224,0, 
0,0 

1200 DRTR 4,4,7,252,124,60,16,25 

1210 DRTR 0,0,66,1-65,24,24,0,0 
1220 DRTR 124,124,62,31,62,124,2 
48,124 

1230 DRTR 62,31,62,124,248,168,8 
4,42 

1240 DRTR 126,126,126,126,126,12 
6,126,126 

1250 DRTR 255,255,170,0,0,0,0,0 

2000 CLS : PRINT RT 0,10;"ISTRUÌ 
IONI" 

2001 PRINT "Dovete stendere quan 

ti piu'panni . possibili senza r 

orapere il filo. .Ogni panno ha 

un certo peso : pi u ‘ ‘ "e ‘pesar» te p 

iu'punti si hanno."'"21 gioco fi 

filo.s a ro; 


nis ce quando i i 


0»PS 


2010 PRINT "Fate attenzione agli 

uccellini.che possono posarsi 

sul filo e.che quindi lo appe 

san tis cono." 

2020 PRINT RT 11,0;"PUNTEGGI: 

TRB 16;"PANNO";TRB 25;“PESO" 

2030 PRINT RT 12,0 ; p * f 1) ;" Pant 
a ioni";TRB 16;25;TRB 25;500;"G"; 
TRB 0,- p $ (2) 

2035 PRINT 'riti);" Gonna”;TRB 1 
6;22;TRB 25;450;"G";TRB 0 ;r*(2) 
2040 PRINT 'J$ C1);" Haglia";TRB 
16;20;TRB 25;400; "G";TRB 0; J$(2 

) 

2044 PRINT "Premere un tasto"; P 
RUSE 0: POKE 23692,255 

2045 PRINT 't$ ( 1);" sciarpa";Tfl 
B 16;17;TRB 25;250;"G" ; TRB 0;t*< 
2 ) 

2050 PRINT ' u $ (2) ; ” Veste";TRB 
16;1S;TRB 25;100;"G";TRB 0;u$(3) 
2060 PRINT 'U $ ( 1) ; " Slip",TRB 16 
; 10,TRB 25; 75; "G" 

2070 PRINT 's $ ( 1); " Calze";TRB 
16;5;TRB 25;50,"G" 

2075 PRINT 'b$ (1); "Passero";TRB 

16;"?"; TRB 25;"?G" 

20S0 PRINT '"Premere un tasto"; 
PRUSE 0: RETURN 
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Il vampiro 


Riuscire ad implementare, sia pure con l'espansione da 16 K, un gioco di quelli definiti come "Adven- 
ture game" sul VIC 20 non è cosa facile. 

List lo ha fatto per voi. 

Il "vampiro" è stato costruito con tutti gli ingredienti tipici per un gioco del genere: il labirinto, il vam¬ 
piro, gli archi, le frecce, i socchi d'oro sparsi qua e là, i pozzi che vi inghiottono, sono la maggior parte 
delle difficoltà che incontrerete nella vostra avventura. 

Come i puristi desiderano, la grafica di questo gioco è ridotta all'osso, al contrario, gli effetti sonori 
sono numerosi e gradevoli. 

Anche se le istruzioni sono contenute nel gioco, vale la pena ricordare come si svolge la vostra avven¬ 
tura. 

Siete in un labirinto in cui si nasconde un feroce vampiro. Il vostro compito, da valoroso cavaliere, è 
quello di uccidere il vampiro e tornare indietro uscendo dal labirinto. 

L'impresa non è assolutamente semplice in quanto alcuni pozzi sparsi nel labirinto potrebbero inghiot¬ 
tirvi ed inoltre, alcuni giganteschi pipistrelli possono afferrarvi e portare in alto, facendovi cadere poi 
in una stanza del labirinto diversa da quella in cui eravate. 

C'è qualche aiuto, ma non è assolutamente facile riuscire a servirsene bene. Riuscirete ad esempio a 
capire che siete vicini al vampiro nel raggio di 2 stanze, che siete vicini ad un pozzo nel raggio di una 
stanza. 

Potrete scagliare delle frecce contro il vampiro, a patto però di averle raccolte vagando nel labirinto e 
di avere soprattutto un arco per scagliarle. 

Potrete consultare la mappa del labirinto per almeno 2 volte, ma per pochissimo tempo prima che spa¬ 
risca. 

Se riuscirete ad uccidere il vampiro dovrete poi ritrovare l'uscita senza cadere in nessun pozzo, altri¬ 
menti inevitabilmente vi inghiottirà. 

Insomma, se ne avrete voglia e se farete attenzione è un gioco che può durare anche delle ore. 

Vi consigliamo, per la lunghezza del listato e per evitare di commettere errori, di digitare il listato per 
blocchi. 

E tutto, non rimane che augurarvi buon divertimento. 


COMANDI 

N 

Nord 

W 

Ovest 

E 

Est 

S 

Sud 


F Per scagliare le frecce. Se è possibile scagliarle aggiungete la direzione in cui volete farlo. 
P Per prendere gli oggetti che incontrerete sul vostro cammino. 

H Per a visualizzazione della mappa. 

G Per a visualizzazione del punteggio e degli oggetti raccolti. 

O Sorpresali! 

Q Per fermare il gioco. 


10 PRIHTRNIK-TI> 

20 GOSUB201© 

30 FORT =1TO100'NEXTT 

40 F'RINT"nsWSF'REF'fìRRTI AD ENTRARE P.ì NEL LABIRINTO '• " 
80 li I MA* ai.il>: P0KE36878.1A : HP=2 
90 DEFFNA <Z > = INT <RND< Z >♦10+1) 

100 WX*FNA<1> : NV=FNA <1>:X=FNFK1>:V=FNA<1> 

110 IFNX=XANDWV=V THEN100 
120 A* < MX.. WV > = " UN VAMP IRO " 

130 A t <X.V>="L"ENTRATA" 

140 FORA=1TG10 

150 SV=FNA<1>:SX=FNR <1>: IFA*<SX,SV > O""THEN150 
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1 60 A*< SX,SY > = " UN POZZO":NEXTA 
170 F0RA=1T0? 

180 GX=FNA< 1 ) : GV=FNR(1 ) : IFfl$ < GX, GV > O " " THEN180 
190 A*<GX , GV>="UN SACCO D'ORO" : NEXTfl 
200 F0RA-1TQ3 

210 BX=FNA<1>:BV=FNA<1 ) : IFA*<EX,BV >O" H THEN210 
220 A$(BX*BV>="UN ARCO":NEXTfl 
230 FORA=1T03 

240 AX=FNA<1):AV=FNA<1): IFA*<AX,AV>O""THEN240 

250 A*<AX,AV> = "UNA FRECCIA " :NEXT A 

260 F0RA=1TO10 ^ F0RB=1TO10 

270 IFA*<A,B> = ""THENA*<A•B> = "VUOTO" 

280 NEXTB,A : SP*="UN POZZO" 

290 REM 
320 GOSUB1400 

330 POKE198,0:PRiHT" THC E' " ; A* <X,V > ■ PRINT"MI N QUESTA STANZA." 

340 IFA*<X, V)=SP*THENGOSUE1490 : PRINT"MIL fsPOZZOSW TI HA INGHIOTTITO. " : G0T097G 
350 IFA* < X,V> = "UN VAMPIRO"THENGOTO770 

360 IFA* < X+1,V>=SP*ORA* < X-1,V > =SP*ORA* < X,V+1>=SP*ORA*<X,V-1>=SP$THENGOSUB530 
370 IFX-HX>-3flNDX-WX<3ANDY-WY>-3ANDY-MY<3THENPRINT" «ODORE DI VAMPIRO" 

380 IFRND(1K. 05THENGOSUB1150 
390 PRINT"W? 

400 GETA*: IFA*=""THEN400 

418 PRINTA* : P=P-5 

420 IFA$="P"THEN610 

430 IFA*="H"ANDHP>0THEN1220 

440 IFA$="G"THEN720 

450 IFA*="Q"THEN980 

460 IFA$="F"THENGOSUB730 

470 IFA*="0"THENIFA*<X,V>="L'ENTRATA"THEN1130 

480 IFA*="0"ANCA*(X,V><>"L'ENTRATA"THENPRINT"M COME PUÒI FARE ?":GOTO390 

490 IFA*="N"THENV=V+1 :IFV>10THENY=Y-1:GOTO590 

500 IFA$="S"THENV=V-1 :IFV<1THENV=V+1:GOTO590 

510 IFA*="E"THENX=X+1 :IFX>10THENX=X-1=GOTO590 

520 IFR*="W"THENX=X-1 : IFX<1THENX=X+1 :GOTO590 

530 IFA*<>"N"ANDATO"E"ANDATO"W"ANDATO"S"ANDA*0"0"THEN390 

540 GOTO290 

580 PRINT" MC'E' FANGO " : RETURN 

590 PRINT"«NON PUOI ANDARE OLTRE"•GOTO390 

610 IFA*<X,V> = "VUOTO"THENPRINT"«NON C E' NIENTE DA «PRENDERE" GOTQ390 
620 IFA*<X,V)="UN ARCO " THENBO=BO+1 :BP=-'BP+10: PRINT "HAI PRESO UN ARCO" 

630 IFA*<X,V>="UNA FRECCIA"THENAR=flR+l : flP=FIP+10 : PRINT"«HAI PRESO LA «FRECCIA" 

640 IFA* < X,Y >="UN SACCO D'ORO“THENG=0+1NT<RND<1)*9+1>*10:FRINT"HAI TROVATO L'ORO 
":GOSUB1810 

650 A$(X,V)="VUOTO" 

660 GOTO390 

670 GOSUB 1430 = PRINT "«ORA e' UNA TUA VITTIMASI" 

680 PRINT"SEI UN EROE,"; : GOSUB1710 PRINT"MA RIUSOIRAI AD USCIRE FUORI??.." 

690 A*<X, V> = "LA CARCASSA DI UN «VAMPIRO" : F-P+100 
700 HB=1 :FORT=1TO1000 :NEXTT : GOTO390 
720 PR I NT " TU AI : «I" : PR I NT G " PEZZI D'ORO" 

730 PRINT 1 "STAR"FRECCE" 

740 PRINT" tì" BO"ARCHI" 

750 PRINT"tì"H"POSSIBILITÀ' DI AIUTO" 

760 PRINT"«PP+G+AP+BP"PUNTI":GOTO390 

770 GOSUB1840 PRINT"?IIL TUO INCONTRO COL SVAMPIRÒ NON E' STATO «FORTUNATO PER 
TE." 

775 P=P-100 : GOTQ970 
780 REM 

790 IFBO=0ORAR=0THENPRINT"«NON PUOI COLPIRE" : G0T0398 
800 GETA* IFA*=""THEN80O 

810 IFATO-"N"ANDATO"E"ANDA*<>"N"ANDATO"S"THEN808 

820 IFA*="N"THENFV=V+1 :FX=X 

830 IFA*="S"THENFV-V-1 : FX=X 

840 IFA*="E"THENFV-V:FX=X+1 

850 IFA*="W"THENFV-V:FX=X-1 

860 PRINT":J_A FRECCIA E' PARTITA MDAL TUO ARCO " 

870 IFH*="N"THENPRINT"VERSO «NORD" 

880 IFAT="S"THENPRINT"VERSO «PUD" 


so 













890 I FA*® "E" THE! 1PRI NT "VERSO ffESJ " 

900 IF A$= "U"THENPRINT"VERSO WDVEST" 

910 GOSUB1580 : AR=AR-1 

920 IFA$<FX,FV > = "UH VAMPIRO"THEN670 

930 IFFX>10ORFXC1ORFV>190RFVC1THENPRINT" PUR COLPITO IL MURO «ROMPENDOLO":GOT0 

390 

94U IFA$<FX•F V ) = "VUOTO"RNDRND<1K.5THENA*<FX,FV) = "UNA FRECCIA" 

950 F'RINT"pMON E' SUCCESSO NIENTE" 

960 GOTÙ390 


970 FORT®1TO200O:NEXTT 
980 PPINT"VIVEVI • " 

990 PRI NT "WG" PEZZI D'ORO" 

1000 PRINT" M" RR"FRECCE" 

1010 PR I NT "JTBQ" ARCHI" 

1O20 PRINT"M"HP"POSSIBILITÀ' DI MRIUTO" 

1030 PRINT"WP+G+AP+BP"PUNTI" 

1040 PRINT-PT/IJUI PROVARE ANCORA A CACCIARE IL VAMPIRO?" 

105O GETAT IF A IO " S " ANDATO " N " THEN1050 
1060 IFA*="S"THENPRINT"« Zi SI :P0KE36S75,230 
1070 IFA*®"N" THENPR INT " Pi Zi NO ■" P0KE36875, 150 
1080 FORT=1TO50O:NEXTT 
1090 P0KE36375,Q :FORT®1TO400 NEXTT 
1100 IFA*="S"THENPRINT" 1 “:RUN 

1110 PRINT"TRIPROVACI ANCORA QUALCHE VOLTA CIAO!" 

1120 FORT= 1 TO 15O0 NEXTT : PR IN T "IT ■ END 
1130 IFWD=0THENPRINT"7F0LL0!" GOSUB1650 :GOTO390 
1140 PRIN T "TEE I UN VERO EROE !":P=P+20O G0T0970 
1150 PRINT"PPUMORE DI ALI" : GOSUB1940 

1160 PR I NT " PEiH, NO ! " ; GOSUB 1980 • PR I NT "UN PIPI STRELLO " : GOSUB 1980 

1170 PRINT"MTI PORTA IN ALTO" GOSUB1940 :GOSUB1940 

1180 PRINT"*ED ALLA FINE TI LASCIA SCADERE GIU'" : GOSUB2000 

1190 V=FNA 1 > ; X=FNA < 1 > IFA* X , V > =SP$THENPR I NT " «IN UN POZZO! ! " : GOSUB 1500 G0T0970 
1200 FORT=1TO1000 :NEXTT G0T0330 
1210 REM 

1220 HP-HP-1 : P=P-100 PRINT" D *.####IL LAB IPINTO###*# r-r- ■ . . . • ■ ■ -r . ■ " 

1230 FORA=10T01STEP-1 
1240 FORQ=1TO10 :PRINT" I ": 

1250 IFA*<Q,A>=SF’* THENPRINT"•"; 

1260 IFA*<Q,A> = "UN VAMPIRO"THENPRINT"N"j 

1270 IPA*<Q,A >= u LA CARCASSA DI UN VAMPIRO“THENPRINT" SUB" i 
1280 IFA*< Q,A> = "L'ENTRATA"THENPRINT"E"; 

1290 IFA$<Q,A) = "UN ARCO"THENPRINT"C"; 

1300 IFAÌ <G!, A > = "UNA FRECCIA" THENPR I NT" 4-" ; 


1310 
1320 
1330 
1340 
1350 
1400 
1410 


IFAT< Q,A) = "UN SACCO D ORO"THENPRINT"$"; 

IFAT < Q,A > = "VUOTO"THENPRINT" "; 

NEXTQ PRINT" I h- \ H 4 -1 — I- 4 H — I " ' NEXTA 
PR I NT "n '— 1 — 1 — 1 — 1 — 1 — 11 — 1 — 1 — 1 — 1 " i 

PRINT"fiW"J F ORA=1T0483 : PRINT" "J: FORT=1T03 : NEXTT > A : GOTO330 
FORL=1TO10 P0KE36877,200 

FORM®1TO10 :NEXTM P0KE36877,0■FORM®1TO100 NEXTM>L = RETURN 


1420 REM 

1430 FORA®10TO1STEP-1 :P0KE36878,A+1NT <RND< 1 > *3- 1 > 

1440 FORT®ITOIO 

1450 PQKEINT <RND<1> #3+36874>,INT <RND<1>#30 > +128' 

1460 FORO®1T020•NEXTQ,T 

1470 NEXTA•P0KE36877,128 :F0RA=36874T0368 77 ■ POKEA,0 NEXT RETURN 
1480 REM 

1490 FORA=230T0150STEP-1 :P0KE36875,A :F0RT=1T05:NEXTT,A 
1500 P0KE36875,0 FORT®1TO1OO:NEXTT 

1510 FORA®190TO250STEP2 P0KE36877,A NEXTA:P0KE36877,0 FORT®1 TOSO©•NEXTT 
1520 FORA®ITO10 
1530 Q=50-A#5 = P0KE36878,15-A 
1540 P0KE36875,Q+130 FORT®1T020-Q:NEXTT 
1550 F0RQW=QT0Q+20STEP5 :P0KE36375,QW+130 

1560 FORT®1TG10 : NEXTT,QN : P0KE36375,0 : FORT®1TO300 ; NEXTT,A P0KE36875,0 P0KE36878,1 


5 : RETURN 


1570 REM 
1580 F0RA=1T03 

1590 FORO®130+A#2TO130+ A#4 P0KE36875,Q:NEXTQ,A :P0KE36878,8 
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1600 F0Rfì=1704 

J e 10 FORO* 130 m 140S FF.P5 ; POKE 36375 • Q : NEXTQ 

162U r ORO* 140TO130STEP-5 : POKE36875, Q : NEXTQ 

1630 FORT*1TO500•NEXrF RETURN 

1640 REM 

1650 FORR* 1 ros 

1660 P0KE36875,240 :FORT*1TO100 NEXTT 
1670 POKE36875,0 :FURT*1 TOSO NEXTT 
1680 POKE36375,200 : FORT 55 1 TO 100 : NEXTT 
1690 POKE36875,0 : FORT*1TO200 : NEXTT,R: RETURN 
1700 REM 

1718 RERDP I FP=-1THENRETIJRN 
1720 REftDPl•T FORO®lTOT 

1730 P0KE36875,P• P0KE36878,15-<8/T>*N■P0KE36875,P1 
1740 NEXTQ P0KE36875,0 
1750 FORT*1T020 NEXTT GOTO1710 
1760 REM 

1770 DRTR173,174,15.181,182.15,203,203,10 
1780 DRTR216,216,6,200,200,20,192,195,15 
1 “'90 DRTR181, 182,17,1 73, 173,20, -1 
1800 REM 

1810 FORR*1TQ2G■P0KE36876,INT • RND<1>*10+235) : FORT=1T050 : NEXTT 
1820 P0KE36876,Ù FORT*1T020 NEXTT.R RETURN 
1830 REM 

1S40 FGRR*1TO20 P0KE36877, I NT •: RNIK 1 >*30+150> F0RT=1T015 NEXTT 
1850 P0KE36877,0 FORT* 1 TO< I NT < RND < 1 >*20 > > 12 '• NEXTT, R 
1860 FORfi=lT05 
1870 FORO*ITO18 

1880 P0KE36877,0*4 +190 :P0KE36877,128 :NEXTQ:P0KE36877,0 
1890 KiPT*1TO108+1NT<RNIK 1>*300■•NEXTT,fi 
1900 P0KE36875,234 • FORT--17 0200 NEXTT ■ P0KE36375,0 

1910 I-- 0 RT* 1 TU 100 : NEXT r : P0KE36875, 227 : FORT = 1 TO 200 : NEXTT : P0KE36875,0 
1920 FORT*1TO100 NEXT T ■P0KE36375,224 :F ORT=1T0500 NEXTT P0KE36875,0 : RETURN 
1930 REM 

1940 FORR*IT05 : FORO*10TO1STEP-1 : POKE36878,15-Q:P0KE36875,160-R : P0KE36877,220-fì : F 
ORT*ITO100 

1950 NEXTT,0 POKE36875,O : P0KF36877,0 
1960 FORT*1T0300 NEXTT,fì RETURN 
1970 REM 

1980 FORA*150T0210 P0KE36875,R : NEXTfl : P0KE36875,0 : RETURN 
1990 REM 

2000 FQRR=230T0150STEP-1 : P0KE36875,R : FORT*1T05 :NEXTT,fì:P0KE36875,0 : RETURN 
2010 REM *TITOLO* 

2040 FRI NT" rW /-■. I PRENDI IL ‘-." 

2050 PRINT" I > .-r, r-^-rr—, r-* I II II I I ^ I I I I I I I I I I I I M H—Il I I K I I K I I I I" 

2060 PRINT" IN/ I I-+ - Lxa - u-t \'—' I I l H 

2070 PRINT" v —. /-'" 

2080 PRINT" I II l M 

2090 PRINT" I SE VUOI I I OSARE... I '-w- 

2110 PRINT" -’■*—'Il Zi 5* — 

2120 print" a ■ a ■ a ■" 

2130 PRINT" 13 W FPEMT UN TASTO» hh" 

2140 PRINT" mmna^!»M»M»MMBMM»ia 
2150 PRINT"a T72ro»»mM»»»M»ia TìMir»" 

2160 FORT*ITO100:NEXTT 
2170 GETAS : IFfl$<>""THEN2205 
2180 FORT*ITO 1O0NICXTT 

2190 PRINT" a V 'rw" 

2200 FORT*1T050 NEXTT:G0T02150 

2205 PRINT"HISTRU21ONI ? < S/N>" 

2206 GETA$ IFfì$*""THEN2206 

2207 IFflt*"N"THEN2500 

2208 FORU=1TO50 . 

2210 printchr$<14>; istruzioni 

mm u 

2220 pr j nt " sw wmmmmmmm 

2225 NEXTW 
2230 FRI NT "ZI" 


SS 

















LABIRINTO DOVE SI 
TORNARE INDIETRO." 


RETE DI GROTTE.%N 


2248 FRI NT" -.L >*\~h-T" 

2250 PRINT"M“EVI ENTRARE IN UN 
2260 FRINT"DEVI UCCIDERLO E DEVI 
2270 FRI NT "NH1 FREMI UN TASTO" 

2280 GETXt IFX$=""THEN2280 
2290 FRI NT "21" 

2300 PRINT"-.L LABIRINTO E" UNA 
2305 FRINT"DEI PICCOLI POZZI,IN 
2310 FRINT"♦NOME DIMORANDO NEL 
2320 FRINT"ADDOSSO E PORTARVI IN 
2330 PRINT"««pMSFREMI UN TASTO" 

2340 GETAt IFAl=""THEN2340 
2350 PRINT"ZlPlJN PICCOLO AIUTO " 

2360 FRI NT "SFUOI CAPIRE CHE SEI VICINO AL 
2370 FRINT"TICINO AI POZZI,NEL RAGGIO DI 
2380 FRI NT" «TI PUOI MUOVERE USANDOSI 
2390 FRI NT".EFFENDI LE COSE USANDO zrm . " 

2400 FRI NT" «:*“■ TI REGALA DEI DONI FUORI 
2405 FRINT"SFRENI UN TASTO" 

2410 GETA$ : IFA$=""THEN2410 

2420 PRINT"."]:i-, «, Si-'". SUO», PER 

2430 PRINT"«ALTRI COMANDI : W" 

2440 FRI NT" a 11 AIUTO :*■ FINE 

2450 FRINT"SPREMI UN TASTO" 

2460 GETA$ : IFA-f=" "THEN246Ù 

2500 PR I NT " 3" CHRT < 142 > RETURN 

17770 DATA173,174,15,181,182,15.2G3,203,10 


NASCONDE UN VAMPIRO, 


ALCUNE STANZE CI SONO" 


ALTRE ORO OPPURE ARCHIE FRECCE." 
LABIRINTO I VAMPIRI POTREBBERO SALTARVI" 
WWflWALTO." 


VAMPIRO NEL 
UNA STANZA.' 
sn, :*:<■ . " 


RAGGIO DI 2 STANZE 


DAL LABIRINTO. 


COLPIRE. 


SI ■ PUNTI 
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Snake 


Muovendovi come un serpente dovete cercare di catturare il quadratino bianco che appare sullo 
schermo. 

All'aumentare del punteggio corrisponde una maggiore lunghezza del serpente... 
quindi attenzione ai movimenti: non toccate la grialia e nemmeno voi stessi. 

Sono possibili tre livelli di gioco a seconda della difficoltà 
1 = faci le... 

3 = difficile. 

Dopo aver selezionato il livello, premete [ >] per iniziare. 

Per il controllo dei movimenti usare i tasti cursore. 



2 DATA 169,0,133,251,162,78,134 

,252,162,7,160,255,145,25 
1,1 36,208,251,230,252 

,202,208,2 46,96,172,1 

,3,174,1,3,169,4,32,168,252,173,4 
8,192,232,208,253,136,208,239,206 
,0,3,208,231,96 

3 TEXT : HOME 

4 FOR CS = 0 TO 22 
6 READ A 

8 POKE (48896 + CS),A 

9 NEXT CS 

10 HS = O 

11 FOR SK = 0 TO 25 

12 READ B 

13 POKE (770 + SK),B 

14 NEXT SK 

15 HTAB ls VTAB 10» PRINT "INPUT DIFF 
ICULTY LEVEL ?"J M "i"(1 TO 3 ) 

17 CALL 5120:DR = PEEK (5136) 

18 IF DR = 177 GOTO 22 

19 IF DR = 178 GOTO 22 

20 IF DR = 179 GOTO 22 

21 GOTO 17 

22 IF DR = 177 THEN DL = 200 

23 IF DR = 178 THEN DL = 200 

24 IF DR = 179 THEN DL = 300 

25 IF DR = 177 THEN N = 2 


26 IF DR = 178 THEN N = 1 

27 IF DR = 179 THEN N = O 

29 TEXT : HOME 

30 HTAB 9: VTAB 12: PRINT "PRESS 
TO START" 

31 HTAB 1: VTAB 22: PRINT "USE ’UP’, 2 3 4 * * 7 
DOWN',’LEFT* AND ’RIGHT’ ARROW FO 

R CONTROL" 

32 CALL 5120:ST = PEEK (5136) 

35 IF ST = 174 THEN 130 

36 GOTO 32 

130 TEXT : GR : COLOR 13:ZZ = O 

150 HTAB 9: VTAB 22: PRINT "SCORE:";S 

C;" "S"HISCORE:"JHS?" 


152 HTAB 10: VTAB 23: PRINT "TIME:" 
154 HTAB 10: VTAB 24: PRINT "RATE:" 
220 HLIN 0,38 AT 11 HLIN 1,38 AT 39 
230 VLIN 1,39 AT O: VLIN 1,39 AT 38 
240 X = 20:Y = 20:M = 0:H = 2:C = 0:DX 
= O:DY = O:SC = 0:RA = 0:RB = O: 

TIM = O:SA = 2:GL = 0 

245 IF SCRN( X,Y) = 2 OR SCRN( X,Y) 
= 5 THEN 5000 

246 IF SCRN( X,Y) =3 OR SCRN( X,Y) 
= 7 THEN 4000 

300 M = M ♦ 1 












305 TIM = TIM + 1 

310 POKE (28000 + M),X: POKE (38000 + 
M),Y: POKE (20000 + 40 * (Y - 1) + X>,15 


334 COLOR 10: PLOT X,Y 

340 IF M = < K GOTO 380 

345 SA = SA - 1: IF SA = >0 GOTO 380 

350 AX = PEEK <28000 ♦ M - H):AY = PEE 


3007 COLOR 0: PLOT DX,DY: PLOT DX,(DY 
+ 1 ) 

3010 C = O:DY = 0:DX = 0 


3020 

GOTO 

1500 






4000 

SA = 

INT (DY 

/ 4) + 

3: SC 

= SC 

+ 

SA: H 

= H + 

SA: RB 

= 

RB + 1 




4010 

POKE 

(768), 

1: 

POKE 

(769), 

200: 

CALL 

770 

4020 

POKE 

(768), 

1: 

POKE 

(769), 

O 

in 

CALL 


K (38000 + M - H): POKE (20000 + 40 * 

770 



(AY - 

1) ♦ AX),0 

4048 

IF N 

= 0 GOTO 4052 

360 

COLOR 0: PLOT AX,AY 

4050 

COLOR 

0: VLIN DY,(DY + N) AT DX: 

380 

IF H > DL THEN M = 0 

VLIN 

DY, (DY + N) AT (DX + 1) 

390 

IF H > DL THEN H = 2 

4052 

COLOR 

0: PLOT DX,DY: PLOT DX,(DY 

400 C 

= C + 1: IF C = 10 GOTO 2000 

+ 1) 



410 

IF C = 15 + PD GOTO 3000 

4065 

RT = 50 * RB / RA:RT = INT (RT) 

1500 

CALL 5120:KEY = PEEK (5136) 

4070 

HTAB 

9: VTAB 22: PRINT "SCORE:"; 

1501 

IF KEY < >193 AND KEY < > 240 

se; " 

“ 5 

"HISCORE:";HS 

AND 

KEY < >218 AND KEY < >24 

4080 

HTAB 

10: VTAB 23: PRINT "TIME:"; 

1 AND 

KEY < >136 AND KEY < > 1 

TIM; " 


II 

49 THEN KEY = ZZ 

4090 

HTAB 

10: VTAB 24: PRINT "RATE:"; 

1510 

IF KEY = 193 OR KEY = 240 THEN Z 

rt; " 


" 

Z = KEY: GOTO 1600 

4100 

HTAB 

1: VTAB 21: INVERSE : PRINT 

1520 

IF KEY = 218 OR KEY = 241 THEN Z 

SA: NORMAL 


Z = KEY: GOTO 1700 

4500 

C = 0 


1530 

IF KEY = 136 THEN ZZ = KEY: GOTO 

4510 

GOTO 

245 

1800 


5000 

IF HS 

< SC THEN HS = SC 

1540 

IF KEY = 149 THEN ZZ = KEY: GOTO 

5005 

SC = 0 


1900 


5010 

POKE 

(768),6: POKE (769),14: CALL 

1550 

GOTO 300 




1600 

Y = Y - 1 

770 



1630 

GOTO 245 

5020 

POKE 

(768),2: POKE (769),30: CALL 

1700 

Y = Y + 1 




1730 

GOTO 245 

770 



1800 

X = X - 1 

5030 

POKE 

(768),3: POKE (769),58: CALL 

1830 

GOTO 245 




1900 

X = X + 1 

770 



1930 

GOTO 245 

5040 

POKE 

(768),10: POKE (769),14: CALL 

2000 

COLOR 15 




2005 

PD = INT (70 * RND <D) 

770 



2010 

DX = RND (1)iDX = DX * 35:DX = IN 

5050 

POKE 

(768),3: POKE (769),58: CALL 

T (DX) + 1 

770 



2020 

DY = RND (l)iDY = DY * 36:DY = IN 

5060 

POKE 

(768),3: POKE (769),73: CALL 

T (DY) ♦ 1 

770 



2022 

GL * GL + li IF GL * 500 GOTO 600 

5070 

POKE 

(768),6: POKE (769),88: CALL 

0 


770 



2023 

IF SCRN < DX, DY) =* 2 GOTO 2010 

5200 

GOTO 

32 

2024 

IF SCRN ( DX,(DY + D) - 2 GOTO 

6000 

TEXT 

: HOME 

2010 


6100 

HTAB 

16: VTAB 10: PRINT "YOU WIN 

2025 

IF SCRN < DX, (DY ♦ .N) ) « 2 GOTO 

• 1 



2010 


6150 

HTAB 

5: VTAB 14: PRINT "RESET DI 

2026 

IF SCRN ( (DX ♦ 1 ) , < DY N) ) - 1 

FFICULTY LEVEL TRY AGAIN" 

0 GOTO 2010 

6200 

IF HS 

< SC THEN HS = SC 

2027 

IF SCRN( (DX ♦ 1),DY) « 2 GOTO 

6300 

SC = 0 


2010 


6400 

END 


2028 

IF N = 0 GOTO 2032 




2030 

VLIN DY, (DY + N) AT DX: VLIN DY, 




(DY 

► N) AT (DX ■+ 1) 




2032 

PLOT DX, DY : PLOT DX,(DY 4- 1) 




2035 

RA = ra + 1 : GL * 0 




2040 

GOTO 1500 




2060 

IF SCRN( (DX + 1),(DY + N)) =2 




GOTO 2010 




3000 

IF N = 0 GOTO 3007 




3005 

COLOR 0: VLIN DY,(DY + N) AT DX: 





VLIN DY, (DY + N) AT (DX + 1) 
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Gruppi di meteoriti si dirigono verso la vostra città. Dovete farli espoldere prima che tocchino terra. 
Non appena li avete nel mirino sparate dunque i vostri colpi. 

Il gioco termina quando sei meteoriti hanno toccato terra. 

Un gioco di velocità provvisto di buoni effetti sonori. 

Necessità di joystick (PORT 2). 

1 GOSUB3000O 

10 b i mi (. 6 :>, mp < 6 >, P 2 < 6 >, mm < e >, pr < e :>, pp ( e > 

20 MP<1>=40•MP<2 > =80■MP<3 > = 120 :MP< 4 > = 160•MP <5 > =200■MP <6>=240 
30 PP < 1>=4 :PP <2 > =8 :PR(3> = 16 : PR< 4)=32 : PR <5> =64 :PR<6 > = 128 
35 PP<1> = 1382 PP<2> = 1422 : PP < 3> = 1462 : PP(4> = 1502 : PP<5> = 1542 : PP<6)=1532 
40 REC=90 : SN=253 
50 BN$=" C B M 64 M 
60 GOSUB10000‘GOSUB14000 
100 : 

105 REM *********************** 


110 REM * *** *** * 
120 REM * ** METEORE ** * 
130 REM * * 41 * 
140 REM * ** C B M 6 4 ** * 
150 REM * *** 45** * 


160 REM *********************** 

180 : 

190 REM ***GENERfìZIONE SPRITES*** 

200 : 

210 V-53248 

220 POKEV+21 .• SN 

230 POKE2040,11 :POKE2041,13 

240 FORI=2042TO204?:POKE1,14:NEXT 

250 FORI=0TO62 ; REfìDX : POKE704+I,X■NEXT 

260 FORI=0TO62 REflDX : P0KE832+I, X :NEXT 

270 FORI=0TO62:REfìDX:P0KE896+1,X :NEXT 

340 POKE53280,10 : P0KE53281,9 

350 POKEV+39•1:POKEV+40,7 

360 FORI=41T046•POKEV+1,7:NEXT 

380 POKEV+27,252 

390 P0KE56322.224 :POKEV+30,0 

405 GOSUB5000 

410 XX=160 : VV=150 : SN=253 

480 * 

440 REM ***PREPHRfìZIONE SUONO*** 

445 : 
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450 SI =54272 = POKESI +4,0 : POKES1+24, 15 : POKESI +5,0' POKESI +6 . 15* 1 6 : POKES1+4-12 
455 : 

460 REM 
465 : 

470 PRINT'T]" 

436 FQRI=0TQ23= POKE1024+32+404? 1,224 : POKE55296+32+40*I,0 

482 POKE1024+0+40#1,224 :POKE55296+0+40*I,0 :NEXT 

484 FORI=0T032=POKE1024+1+40*24,224 :P0KE55296+1+48*24,0 :NEXT 

490 FORI=0TO16 : PRINT : NEXT 

500 FORI = 1T06 =PRINTB$<I)•MEXT 

510 P0KE214,6:P0KE211,33=SV358640 

520 PR I NT " flìlE TEORE " 

530 FORI =8T013 •' P0KE214, I : P0KE211,33 : 3VS53640 = PRINTI-7; "II. . .O" NEXT 
590 POKES1,150 = POKES1 + 1,2 
600 TI$="000000":POKEV+21,SM 
630 ■ 

640 REM ***INIZIO GIOCO*** 

650 : 

700 J=PEEK<56320> 

710 XX=XX+SK*<<JRND4> =0 >-SK*<<JRND8 > =0> 

720 VV=VV+SK* << JRND1>=0)-SK* < < JRND2)=9> 

730 IF <JRND16 > =0THENGOSUB7000 
740 IFVV>=174THENVV-174 
745 IFXX>=255THENXX=255 
750 POKEV+4,MP <1):POKEV+5,P2 <1> 

760 POKEV+6,MP <2 >:POKEV+7,P2<2> 

770 POKEV+8,MP <3 >:POKEV+9,P2 <3 > 

780 POKEV+10,MP(4 >:POKEV+11,P2 < 4> 

790 POKEV+12,MP< 5):POKEV+13,P2<5> 

800 POKEV+14, MP < 6 > : POKEV+15, P2 < 6 ) 

810 POKEV,XX :POKEV+1,VV 

850 F0RI=1T06:P2<I>=P2<I)+LIV:IFP2CI>>=255THEMG0T011000 
860 NEXT:POKEV+30,0 
870 GOTO700 
4940 : 

4950 REM *** SPARO *** 

4960 : 

5000 FORF=1T06:P2 < F > = INT <RNB<1> *30):NEXT: RETURN 

7000 POKESI+4,33 = FORT=100TO250STEP10 = POKESI,T : PO* bS1*1,250-T:NEXT 

7010 POKES1+4,129 :POKES1,150 : POKES1 + 1,2 

7020 KO=PEEK<V+30) : IFKO=0ORKO>130THENRETURN 

7030 FORI = 1T06=IFKO-1=PR <I> THENSN=SN-PR<I>. :MM CI> = 1 :VV=I 

7040 NEXT 

7041 SN=SN+2 

7042 PQKEV+21,SN:POKEV+2,MP <VV):POKEV+3,P2(VV > 

7044 FORT=180TO250STEP8:POKES1+4,129 = POKESI,T = POKESI +1,250-T 

7045 IFT/4=INT(TTX4>THENPnKESI+4, 17 - 

7046 NEXTT = POKES1+4,129 = POKES1,150 = POKESI + 1,2 
7050 I FSN03THENSN=253 = GOSUB5000 = GOTO8000 
7070 SN=SN-2 = POKEV+2,0 = POKEV+3,0 

7030 POKEV+21,SN 
7090 POKEV+30,0 
7210 RETIJRN 

8000 FORI=5T015STEP2 = POKEV+1,P2<I-(I-1)> =NEXT 

8005 F0PI = 1T06 = MM<I )=8 = NEXT 

8010 POKEV+30,0 = POKEV+21,SN = GOTO7O0 

9950 : 

9960 REM *** CITTR' *** 

9970 = 

100O0 = 9»IM ■" 

18010 B$<2)= H «an a 11 mm. 

10020 B$<3) = M m ■ ■■■ ■**«:! ■" 

* «hi-» mi ki 
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10040 B$<5> = "I»*M ■■■■ " 

10050 B$<6>="IB Klzr ^Biia ■ mm m 11 wé* I in:4«^li Zim mi"" 

1O060 RETURN 
10960 : 

1O970 REM ♦♦♦ SCOPPIO ♦*♦ 

10980 : 

11000 FORT=0TO240STEP5 : POKESI, TT :POKESI+1,240-TT:NEXT 
11005 POKES1,150:R0KES1+1,2 

11010 FORR=0TO60:POKE53230,R : P0KE53281,60-R:NEXT'P0KE53280,10 : P0KE53281,9 

ì1020 FOPI = 1T06 IFMM<T > =0RNBRS<6THENRS=RS+1 : GOSUB12000 

11030 NEXTI 

11050 IFRS-6THEN170O0 

1106O GOSUB5000 

11070 SN=253 : POKEV+21, SN : FORR= 1T06 •' MM< R > =0 : NEXT ' P0KEV+30,0 
11080 GOTO700 
11960 : 

11970 PEM *** COM. COLPO *♦♦ 

11980 : 

12000 FORT=1T06: IFPEEK<PP < T> >081THENPOKEPP<T),31 : POKE<PP<T)+54272), 7 : RETURN 
12010 NEXTT:RETURN 
13960 : 

13970 REM ♦♦♦LIVELLO BIFFICOLTA'♦♦♦ 

13980 : 

14000 INPUT "XI VELLO DI BIFFI COLTRO <1-3)";LIV 
14010 IFLI V< 1ORLI V>3THENPR I NT " 71" : GOTO 14000 
14020 LIV=LIV+2 : SK=LIV+3 
14030 RETURN 
16950 : 

16960 PEM ♦♦♦ FINE GIOCO ♦♦♦ 

16970 : 

17000 POKES1+4.0:P0KEV+21,0:P0KE56322,255 : PRINT" 1” 

17005 TG=VRL<TIt:> 

17O10 I FTG>RECTHENPR I NT " 3SNU0V0 RECORB 1 : INPUT " fcNOME = "RBf : B= 1 

17020 PRINT" «MMIGLIOR TEMPO ="JREC 
17025 PRINT"BI =";BN* 

17030 PRINT"««TEMPO GIOCRTORE =";TG 
17040 IFTCORECTHENBN*=RBT:REC=TG 
17050 PRINT"«SMUOVO RECORD =";REC 

17055 IFB=1THENB=0 : PRINT"BI ■";BN$;"5" 

17O60 PR I NT" «««««fWFREM I 'SPRCE' PER GIOCRRE RNCORR" 

17070 FORT=1T06 MM(T > =0 : NEXT 
17080 RS=0 

17090 GETTf : IFT$=""THEN17090 
17100 IFTfO" "THEN17130 
17110 GOSUB14000 
17120 GOTO390 

17130 PRIMT":i3«««««««tt«i'*BBBBBBBBBBI C IRÒ! ! ' ■" : ENB 
19000 •: 

19010 REM ♦♦♦ GRRFICR ♦♦♦ 

19020 

20000 BRTR0,0.0,0.8,0,0,8,0,0,0,0,0,0,0,0,8,0,0,8,0,0,0,0,0,0,0.0,0,0 
20010 BRTR51,0,102,0,0,0,0,0,0,0,0,0,0,8,0.0,8,0,0,0,0,0,0,0,0,8,0 
20020 BRTR0,3,0,0,0,0 

20030 BRTR0.0,1,0,4,0,2,0,0,0,12,8,1,140,48,8,63,224,0,215,128,1,171,224,46 * 
2004Ó DRTR213,173,7,54,224,1,201,0,0,55,123,2,223,192,2 120,128,3,48,0,8,51,32 
20050 BRTR4,0,0,16-48,123,0,0,0,0,32,2,128,0,0 

20060 BRTR0,56,0,2,124,96,7,253,224,15.239,240,30,15*,96,29,98,248,29,21,138 
2 fi fi 70 BRTR58,169,126,62,64.60,31,4,224,14,64,56,15.9.121,6,160,92, 29,73, 56 
2Ó080 DRTR30,164,206,31,213,110,15,170,190,5,238-252,0,255,192-0,59,192 
20090 DRTR0,16,123 

30000 PRINT "n«««*®M | C3a IBI IBI IBI IBI IBI "9" 

30O10 PRINT" SBBPBI IBI IBBBBI IBBI IBBBI II IBI II " 

30020 PP I NT " SBBJBI Iff^SBI IBI IBBI IBBI IBI II IBI W" 

30030 PRINT" SBBBM IBBBI IBI IBBBBI IBBI IBBBI II IBI 

30040 PRINT"ZBBfiBI IBBBI IBI IBBBBI IBBI IBBBI II IBI IHW 

30050 PPTNT"S»P*BI IBBBI IBI IBBBBI IBBI IBBBI II IBI IB^W 

30060 PRINT" «BIBBI IBBBI IBI IBI IBBI II IBI IBB^'lS^" 

30065 PRINT"Mfl««IBBBBl3CQMM0B0RE 64" 

300 70 F0RT=1T02500 : NEXTT: GOTO10 


68 









ZX-81 16K 


T T 


ili::: ii! ::::::: [jj 


Squash! 


Si tratta di una riedizione del notissimo Break Out. 

Al posto del famoso muro immaginate delle file di bottiglie. 

Con la vostra racchetta e tre palline dovete cercare di romperle tutte , muovendovi mediante i tasti "S 


e "Z" 


n 


Sullo schermo sono visualizzati il punteggio massimo e le palline a disposizione (volendo aumentare o 
diminuire il numero di queste intervenire sulla variabile alla linea 40). 

Buona . battuta I 



1 

2 

3 

4. 

5 

6 
7 
3 

4.0 

4-5 

50 

55 

75 

80 

85 

90 

6397 

100 

105 

110 

120 

130 

14-0 


REM *#******#****»#»•»«•«».* 
REM #* * * 

REM * S 0 U A S H » 

REM ** ** 

REM * ZX-81 16K * 

REM ** ** 

REM *********************** 
REM 

LET POLLA s3 
LET PM=PEEK 16514- 
LET BT =9 
LET BB*11 

LET Y1= SGN (RND-0.5) 

LET K =0 
LET B=0 

LET P=PEEK 16396 +256 *PEEK 1 

+ 1 

FAST 

CLS 

FOR T*0 TO 30 
PRINT AT 0 ,T; 

PRINT AT 20 ,T; 

- Rlt 


PRINT HI 20 / T p I 

IF T < 20 THEN PRINT AT T,0; 


150 NEXT T 

160 FOR T =2 TO 18 STEP 2 

170 FOR 1*1 TO 21 STEP 2 

180 PRINT AT T,I 

190 NEXT I 

200 NEXT T 

210 FOR T =BT TO BB . 

220 PRINT AT T,31;* , |** 

230 NEXT T 

24-0 PRINT AT 21,0; "PUNTI: 0 

X. : ";PM 
24-5 SLOU 

250 FOR T*1 TO PALLA 
260 LET X =30 
265 LET Y *9 


MA 


m 





270 LET Xl*-1 

290 PRINT AT 21 , 24. ; "PALLE : ; T 

300 IF ( INKEY % < > **Z" ) + (BB = 19) TH 
EN GOTO 350 
310 PRINT AT BT,31;* # ** 

320 LET BB=BB+1 
330 LET BT=BT+1 
34.0 PRINT AT BB,31;"|" 

350 IF ( INKEY $ < > "S" ) + (BT = 1 ) THE 
N GOTO 4.00 

360 PRINT AT BB,31;** " 

370 LET BB =BB-1 
380 LET BT =BT-1 
390 PRINT AT BT,31;”|*' 

4.05 IF X = 1 THEN LET Xl = l 
4-10 LET X=X+X1 

4-15 IF (Y*19)+(Y = 1) THEN LET Y1 
*Y 1 * ( - 1 ) 

4-20 LET Y=Y+Y1 

4-25 LET B1 =B 

4-30 LET B=P+33*Y+X 

4-4.0 IF PEEK B < > 133 THEN GOTO 50 

0 

4-50 LET K=K + 1 
4-60 LET X1=X1*-1 
4-70 PRINT AT 21,6; K 
500 POKE B,CODE "O" 

505 POKE B1,0 

510 IF X = 1 THEN LET X1=X1*-1 
520 GOTO 600-(X*30)*70 
530 GOTO 1000- (Y< =BB) * (Y > =BT) *4- 
60 

54-0 LET Xl = -1 

550 IF NOT (Y1>0) * (Y =BT) +(Y1<0) 
* (Y =BB) THEN GOTO 570 
560 LET Y1=0 
565 GOTO 580 

570 IF Y1=0 THEN LET Y1=Y1+(Y=B 
B) - (Y =BT ) 

998 GOTO 300 
1000 PRINT AT Y, X; *' ** 

1010 NEXT T 
1020 PAUSE 200 

1100 IF PM>=K THEN GOTO 1200 
1110 POKE 16514-,K 
1120 SCROLL 
1130 SCROLL 

114-0 PRINT "BRflUO. NUOUO PUNTEGG 
IO MAX." 

1200 SCROLL 
1210 SCROLL 

1220 PRINT "UUOI GIOCARE ANCORO? 
(S/N) ** 

1230 PAUSE 5E4- 

124-0 IF INKEY $ = *' S *' THEN RUN 
1250 CLS 























ZX Spectrum 16/48 K 



La caccia 

La vostra tribù sta morendo di fame: dovete andare nella pianura e procurarvi del cibo. È stagione di 
migrazione per le antilopi e non dovrebbe essere difficile per voi, abili e "affamati" cacciatori, ucci¬ 
derne qualcuna. 

Avete a disposizione un arco con 25 frecce. 

Punteggio e frecce a disposizione vengono visualizzati sullo schermo. 

Per tirare una freccia premere il tasto "F". Prima di dare il 'RUN' dovete entrare nel modo maiuscolo 
(CAPS SHIFT + tasto 2). 


Attenzione! Le lettere maiuscole fra virgolette vanno diqitate dopo essere entrati nel modo qrafico 
(GRAPHICS -G). 




gSW SS 



PRESENTO 





; 0 I H 


1 

REM 

ir***-******************* 

2 

REM 

* * 

* * 


REM 

* LA CACCIA 

* 

4 

REM 

* * 

* * 

5 

REM 

** ZX - SPECTRUM 

ir ir 

6 

REM 

* * 

* »r 

7 

REM 

* 16K / 48K 

* 

6 

REM 

* * 

* * 

9 

REM 

*********************** 

10 

REM 



15 

GO SUB 2O00 


20 

BORDER 5: PAPER 6: CLS 


Q£ 

REM 



100 

REM 

alberi e cespug ti 


105 

REM 


110 

FOR 

R=0 TO 7: READ A 


120 
XT R 

POKE 

USR *'T “ + R , A : INK 4: 

NE 

130. 

DATA 

60,255,255,126,24,24 

,2 


14.0 FOR S = 0 TO 7: RERD C 
150 POKE USR "B"+5,C: INK 4-: NE 
XT S 

160 DflTR 0,0,0,60,126,255,126,0 
170 FOR U=0 TO 7: RERD D 
180 POKE USR ” P * * + U , D : INK 4-: NE 
XT U 

190 DOTA 63,255,255,63,7,1,1,1 
200 FOR U=0 TO 7: RERD G 
210 POKE USR ,, G"+U,G: INK 4-: NE 
XT U 

220 DflTR 252,255,255,252,224,12 
6,128,128 

300 PRINT AT 0,0;"TT T TB PO T 
TPO T T BT T BPOTB" 

310 PRINT AT 1,0;" TTBT T T 


70 


































































::: gj Sf 
::: iH ::: 

::: il! «Fi? 11! 


ZX Spectrwm 16/48 K 


BTTTT BTTT” 

320 PRINT RT 2,0;"T T T 
T T T B T BB BB" 

330 PRINT RT 3,0, 

BTB T POBB B B" 

34-0 PRINT RT 6,0; 

B B BB PQBBB 


PO T 


BPO B 
\ PRINT 
B B BB 
> PRINT 
B B 


BB B B BB 


B" 

B B 


B 


B B B 


O 


BPOT B 


il ± f 

POB B 


B POB 
>RINT R' 
POTB 


BPO B 


O BPO B POBB BPO 
4-90 REM 

500 REM sequoia 
505 REM 


520 PLOT 125,4-6 


560 PLOT 121,38: 


"T T T T 

B T 

” TT T T TB PO 
%% 

"PO T TBPOT B 

"T T T T 

** 

TB 

; "T T T 

B T T 

B" 


T TB T 

TB 

B" 


;"T POTB 

B B 

B" 


; "T T B T 

BB 

B" 


; ” B T B 

BB 

B" 


; "T B B 

BBB 

; " B B 

»» 

T P 

; " pob 

BPOB 

B PO" 


;"BB POB 

T B 

;” POB B 

•• 

B 

;" B POB 

PO BP 

B" 


DRRU 6,0: 

PLOT 

INK 3 


DRRU 16,0 

: PLO 

0 : INK 3 


DRRU 22.0 

; PLO 

0 : INK 3 


DRRU 24,0 

: PLO 

0: INK 3 


DRRU 24,0 

: PLO 

0 : INK 3 


DRRU 24,0 

: PLO 

0: INK 3 


DRRU 23,0 

: PLO 

0 : INK 3 


DRRU 19,0 

: PLO 

0 : INK 3 


DRRU 10,0 

: PLO 

INK 3 


DRRU 6,0: 

PLOT 

INK 3 


DRRU 4,0: 

PLOT 

INK 3 


DRRU 4,0: 

PLOT 

INK 3 


DRRU 4,0: 

PLOT 

INK 3 


DRRU 4,0: 

PLOT 

INK 3 


DRRU 4,0: 

PLOT 

INK 3 


DRRU 8,0: 

INK 


600 PLOT 129,30: 

130,29: DRRU 4,0 
610 PLOT 130,28: 

130,27: DRRU 4,0 
620 PLOT 130,26: 

130,25: DRRU 4,0 
630 PLOT 130,24: 

130,23: DRRU 4,0 
640 PLOT 130,22: 

130,21: DRRU 4,0 
650 PLOT 130,20; 

129,19 : DRRU 6,0 
660 PLOT 129,18: 

3 

690 REM 

700 REM giraffa 
705 REM 

710 FOR X=0 TO 7: RERD Y 
720 POKE USR "R"+X,Y: NEXT X 
730 DRTR 16,112,240,176,48,48,4 
8,56 

740 FOR M =0 TO 7: RERD N 
750 POKE USR "S"+M , N : NEXT M 
g 760 DRTR 56,62,63,51,51,51,99,9 

780 PRINT RT 9,24; INK 1;"R": P 
RINT RT 10,24; INK 1;"S" 

790 REM 

800 REM cervo 

005 REM 

810 FOR S =0 TO 7: RERD B 
820 POKE USR '* E " +S , B : INK 1: NE 
XT S 

830 DRTR 16,32,64,224,127,63,50 
, 83 

690 REM 

900 REM cacciatore 
905 REM 

910 FOR L =0 TO 7: RERD F 


920 POKE USR ’’M** +L , F : NEXT L 
930 DRTR 4,4,26,36,70,93,93,42 
940 FOR P-0 TO 7: RERD O 
_ 950 POKE USR *' N ” + P , Q : INK 2: NE 
XT P 

^960 DRTR 28,28,28,26,20,34,34,3 

970 PRINT RT 17,14: INK 2; "M": 
PRINT RT 18,14; INK 2;"N M 
3000 LET PUNTI=0 

1010 FOR G = 1 TO 20: BEEP .008, G : 
NEXT G 

3020 LET COLPI=25 

1030 FOR M =50 TO 20 STEP -2: BEE 
P .008,H: NEXT H 

1040 LET C*="EE E E EEE EE 
E EEE E 
1050 LET D$=C$ 

1060 LET RTTRRUERSO = 15 
1070 LET GIU = 17 + 16 

1030 PRINT RT 7,0;C $;RT 5,0;D*;R 
T 4,0;D$ (3 TO )+D*(l TO 2) : BEEP 
.008,55-COLPI 

1090 FOR X = 16 TO 8 STEP -1 
1100 IF INKEY $ = " F " THEN PRINT RT 

X, 14; ”t” 

111© PRINT RT X, 14 ; ** : NEXT X 

1120 IF INKEY $ = " F ’* THEN LET COLP 
I=COLPI-1 : BEEP .05,COLPI. IF C* 
(RTTRRUERSO)<>" " THEN LET PUNT T 

=PUNTI+50 : BEEP .05,50-COLPI: LE 
T C$(RTTRRUERSO)= " 

1130 IF INKEY $ = ” F ** THEN BEEP .05 
,COLPI: IF D 8 (RTTRRUERSO) <>" ** T 

HEN LET PUNTI=PUNT1+500: BEEP .0 
5,50—COLPI: LET D$(RTTRRUERSO)=” 


1140 PRINT RT 21,0; INUERSE 1; ”P 
UNTI® "; FLRSH 1;PUNTI; FLRSH 0; 
“COLPI RIMRSTI = **; FLRSH 1; COLPI 
; FLRSH 0, ** 

1150 IF COLPI<1 THEN CLS : BORDE 
R 1: INK 2: PRINT RT 5,4;“F I N 
E”;RT 10,11;” D E L";RT 15,17;" 

GIOCO": STOP 
1160 LET C $ =C$ (2 TO )+C*(l) 

1170 LET D*=D$(3 TO )+C*(1 TO 2 


) 


1080 


1180 GO TO 
2000 REM 

2005 REM introduzione 


2010 

2020 

»» 

REM 

BORDER 1: 

PRPER 1: 

INK 2: C 


3,3; 

; SS 

ss 

ss 

2040 

PRINT RT 

4,3; 

"SS 

ss 

sss 

•w 

2050 

AVAV 

PRINT RT 

PRINT RT 

5,3; 

"SS 

ss 

ss 

2060 

6,3; 

"SS 

ss 

s 

l" 

2070 

■V 

PRINT RT 

7 , 3 ; 

"SS 

ss 


SS 

2075 

PRINT RT 

8,3; 

"SSSS 

ss 

sss 

sss 

2080 

•V 

PRINT RT 

9,3; 

"SSSS 

ss 

sss 


AV 

2085 PRINT RT 
T R " 

2090 PRUSE 180 
2095 CLS 
2100 BORDER 2: 

LS 

2110 PRINT RT 
2120 PRINT RT 
2130 PRINT RT 
2140 PRINT RT 
2150 PRINT RT 
2160 PRINT RT 

S MT S AV 

2170 PRINT RT 

S -■ S S S S 

2180 PRINT RT 


15,7;"P R E S E N 


PRPER 2: INK 1: C 


2200 PRINT RT 

/ AV S S S' 

2210 PRUSE 150 
2220 CLS 
2230 RETURN 


7,1; "W. 
12,1; SSS 

j| ■ % » 

ss 

13,1; "S S 

s s 

s 

14, ì; "S 

sss 

s 

15,1; "S S 

s s 

s 

16, i; SSS 

s s 

ss 


77 





















Corso di Basic 



Continuiamo il corso avviato nello scorso numero con l'introduzione già annunciata 
precedentemente. 


10 CLS 

20 CURS0R3, 1 :PRINT"LEONI INFORMATICA fi 
ILANO" • GOSUB1000 

30 CURS0R5,5:PR1NT "INTR0DU2JONE e SOM 
MARIO" 


40 CURSOR0,7 SPRINT "Il linguaggio di p 
rogrammaz i one e’ " 


50 CURSOR0,8:PRINT 
e all’uomo di comu- 

"que l lo 

che 

permett 

55 CURSOR0,9:PRINT 
TER. " 

"nicare 

con 

i COMPU 

60 CURSOR0, 11 :PRINT 
ei piu’ diffusi lin 

"I l BASIC 

e ’ uno d 

70 CURSOR0, 12 :PRINT 

"gu agg 

i d i 

program 


nazione, per i PERSO-" 

72 CURSOR0,13:PRINT "NAL COMPUTER, ed 
e’ anche i l l inguag-" 

75 CURSOR0, 14 :PRINT " 9 io che i nterpret 
a ! I tuo SC-3000." 

76 CURSOR0, 16 :PRI NT "Lo scopo di quest 
0 corso autodidattico" 

77 CURSOR0,17:PRINT "e’ di fornire un 
valido aiuto a chi si" 

78 CURSOR0, 18 :PRINT ‘appresta ad IMPAR 
ARE il BASIC.":GOSUB30000:&OSUB300 

100 CLS:CURSOR0,0:PRINT "Sommario dei 
contenuti delle LEGIONI.":PRINT " 

!l 

10] CURSOR0,3:PRINT " 2 NUMERI di LINE 
A - NEW" 

102 CLIRSOR0,5 : PR I NT " 3 LIST - RUN - E 
NO - Stop" 

103 CURSOR0,7:PRINT " 4 Uar iabi l i - IN 
PUT " 

104 CURSOR0, 9 : PRINT " 5 PRINT T^B" 
113 CURSOR0,11 :PRINT " 6 Numer, - Stri 
nghe " 


114 CURSOR0,13 :PR1NT " 7 LET Compito 

120 CURSOR0,15 :PRINT " 8 Spiegazione c 
empito - CLS - ClIRSOR" 

130 C.URSOR0, 17 :PRINT " 9 IF-THEN - G 
OTO" 

140 CURSOR0,19 :PRINT " 10 READ-DATA / 
Uar i ab i Li mu i t i d i men- " 

150 CURSOR0,20 - PRI NT " sionali / DI 
M / REM / CICLI di 

160 CURSOR0,21 :PRINT " Istruzioni." 
:GOSUB 30000 

180 CLS:CURSOR0,0:PRINT "Sommario dei¬ 
contenuti segue." : PRINT " 

I» 

190 CURSOR0,3:PRINT " 11 Cicli FOR-NEX 
T" 

192 CURSOR0,5:PRINT " 12 GOSUB - RETUR 
N" 

200 CURSOR0,7:PRINT " 13 ON-GOTO / ON- 
GOSUB " :GOSUB30000:GOTO 500 
300 2$=CHR$C34D:CLS:CURSOR0,2:PRINT "L 
a comunicazione con il Computer," 

310 CURSOR0,3: p RINT aooiene attracers 
0 i cosiddetti" 

320 CURS0R9,5 SPRINT " PROGRAMMI " 

330 CURSOR0,7 :PRINT "La caratteristica 
essenziale di un " 

340 CURSOR0 ,8 :PRINT "programma e’ di c 
ontenere un insieme " 

350 CURSOR0,9 :PRI NT "di ISTRUZIONI com 
orensibili al " 

352 CURSOR0,10 :PRINT "Computer l’ESEC 
Li 2IONE del programma' 

354 CURSOR0,11 : PRINT "e’ il sistema d, 
ottenere le RISPOSTE" 

856 CLIRSOR0, 12-PRINT "che . rit e r e ssano . 










358 CURSGR0, 14'-PRINT "Face . amo un esem 
pio di pr 09 ^ amma : '' 

360 CUR5OR0,16:PRINT "10 PRINT" ; 2$ ; *'1n 
serisci l’età 5 in anni" J?$ 

370 CURSOR0,17:PRINT "20 INPUT A" 

380 CURSOR0, 18:PRINT "30 PR1 NT" i 2$ , "Ha 
i " j?$ J '' ;365*A 5 " ;2$ ; "9 i orn i ' >2$ 

390 CURSOR0,20:PRINT "Questo e 5 un PRO 
GRANNA che esegue il" 

*00 CURSOR0,21 :PRINT "calcolo dei gior 
ni di età 5 dopo aver" 

410 CURSOR0,22: p RINT "richiesto gli an 
ni." :GOSUB30000 

420 CLS:CURSOR0,4;PRINT "Quello che ab 
biamo visto non e 5 che' 

430 CURSOR0,5 :PRINT 'uno degli inlinit 
i utilizzi del" :CURSOR0,6:PRINT "BASIC 
per ottenere dal Computer un " 

440 CURSOR0,7iPRINT "qualsiasi tipo di 
ELABORA?IONE. :GOSUB 30000iRETURN 
500 CLS:CURSOR0,5:PRINT ' UUOI RIUEDERE 
IL PROGRmA" 

510 CURSOR10,7 :PRINT "NO"=CURS0R8,7 : IN 
PUT A$ : I FA$=''SI " THEN10 
520 IFA$=‘NO" THEN 530 


525 GOTO500 
530 GOTO 24000 

1000 C.URSOR0,2 :POR I = 1 T038 :PRINT 
NEXTI ‘.RETURN 

1500 FOR I-'1TO700 :NEXT:RETURN 

1700 FOR 1 = 1T038 SPRINT , iNEXT:RETUR 

N 

24000 CLS:?$=CHR$C34D : CURS0R3,4 :PRINT 
"FINE LEZIONE 1" 

25000 CURS0R3,7iPRINT 'PER INSERIRE LA 
LEZIONE SEGUENTE" 

26000 CURS0R3,9 iPRINT "DIGITARE L 5 ISTR 
UZIONE 

27000 CURS0R3, 11 iPRINT "LOAD" ;2S »"LEZI 
ONE 2"JZ$ 

27500 CURS0R3,13iPRINT "PRENERE IL TAS 
TO <CR>" 

27550 CURS0R3, 15 iPRINT "E SUBITO DOPO 
IL TASTO <PLAY> " 

27570 CURS0R3,17 iPRINT "DEL REGISTRATO 
RE. " 

28000 CURS0R3,20 iPRINT iEND 
30000 X$=INKEY$ 

30010 IFX$=" : THEN30000 
30015 FORICITO150iNEXT 
30020 RETURN 



13 



















Fire Fox 


Dovete inquadrare l'aereo nemico al centro esatto dello schermo e colpirlo quante piu volte possibile 
prima di finire i colpi a disposizione. 

Il gioco, ideato per la configurazione base del VIC-20, è stato diviso in due parti per sfruttare al me¬ 
glio la memoria; la prima riguarda la sola presentazione e preparazione dei caratteri, la seconda è il 

? ioco vero e proprio. 

a procedura da seguire è la seguente: dopo aver digitato i due programmi ed averli registrati (prima 
l'introduzione, poi il gioco), caricare la prima parte premendo SHIFT & RUN/STOP poi, dopo aver 
eseguito le istruzioni contenute, caricare, ripetendo la procedura iniziale, la seconda parte. 
Caratteristica del programma è che il sistema operativo viene resettato (come se il VIC fosse Spento e 
poi Riacceso) conservando comunque i caratteri definiti dall'utente. 


STRUTTURA 

Parte 1) 

10- 40 

50- 90 
100- 240 
- 350 

Parte 2) 

10- 141 
150- 190 
200- 270 
272- 330 
400- 440 
500- 540 
600- 640 
700- 740 
800- 910 
920 

940- 998 
9000-9060 


blocco 

stampa procedura 
data per i nuovi caratteri 
inizializzazione 


preparazione schermo 
direzione casuale dell'aereo 
controllo tasto premuto 
stampa punteggio per ogni aereo 
movimento verso l'alto dell'aereo 
movimento verso il basso 
movimento verso sinistra 
movimento verso destra 
stampa proiettili 

controllo locazioni 7930 e 7935 ed eventuale esplosione dell'aereo 
stampa esplosione ed incremento del punteggio 

azzeramento variabili & CLEAR schermo; test per continuare o terminare il gioco 


ISTRUZIONI 



1 tasti da usare sono: 

P 

= alto 


L 

= sinistra 



= basso 


: 

= destra 


SPACE 

= FUOCO 


READY. 


1 

2 

REM 

REM 

+ 

FIREF0X 

+ 

3 

REM 

+ 


+ 

4 

REM 

+ 

ANGELO A. 

+ 

tr 

■J 

REM 

+ 

23/4/1984 

+ 

6 

REM 

+ 


+ 

•? 

REM 

+ 

<LIST.> 

+ 

8 

REM 

+ 

PER VIC20 

+ 


9 REM +++++++++++++ 

10 PRINT" 71" j CHR$<3) 
20 P0KE36879,25 

30 P0KE788, 194 
40 POKE37150, 3 


50 PRINT"SW« ATTENDERE UH ATTIMO: 
60 PRINT"M STO TRASFORMANDO" 

70 PRINT"W I CARATTERI" 

80 PRINT"WMW NEL FRATTEMPO SPEGNI 
90 PRINT"W IL REGISTRATORE!" 

100 A=7168 B=7679 
110 F0RI=AT0B 

120 P0KEI,PEEK<I+25600>:NEXT 
130 FORL=0TO71 
140 READP 

150 P0KEA+L,P : NEXT 

160 DATA0,0,16,56,127,56,16,0 

170 DATA0,0,0,0,255,0,0,0 

180 BATA7,63,64,156,156,64,63,4 

190 DATA224,252,2,57,57,2,252,32 

200 DATA0,0,0,0,255,0,0,0 


IH 











Z10 DATR0,0,8, 28.. 254, 28, 8, U 

220 DRTA0,1,15,1,1,3,3,7 

230 DATRQ,128,240,128,128,192,192,224 

240 DRTR0,0,0,0,0,0,0,0 

250 FRINT"WWW RDESSO INIZIALIZZO" 

260 FRINT" IL SISTEMR:" 

270 FRINT" I CRRRTTERI VERRANNO" 

280 PRI NT " FERO •' CONSERVRTI " 

290 FORI=0TO70O0:NEXT:PRINT"IT 

300 pr i nt " num apw; mi. niLS M 

310 PRINTMM SSPRCEB" 

320 PRINT"WBlttW30N0 I TASTI DA USARE" 
330 PRINT"WBUONfì FORTUNA!! ! ■!" 

340 FORI=0TO500O:NEXT 

350 SVS64802 

REATI V. 

REfìDV. 


10 CLR 

11 : 

12 P0KE56,28 

13 P0KE52,28 

40 P0KE36869,255 : POKE650,255 
110 : 

131 POKE36879,3•PRINT" 35" ;CHP$<8> : P0KE36869,255 

132 FORQQ=38400TO38905•POKEQQ,3■NEXT 

135 fi=7910 : C=36878 : D=C-1 : E=C-2 F=C+1 : SC=0 : SH=50 

140 POKEC,5 : POKED,130 

141 S=1 
145 : 

150 Q/£=RNB< 1 )#4+l 
160 IF0X=1THENR=R-1 
170 IF0*;=2THENR=R+1 
180 IF0*:=3THENR=R+22 
190 IF0*;=4THENH=H-22 
194 IFSH=0THEN9000 
200 P=PEEK<203> 

230 IFP=13THENGOSUB400 
240 IFP=37THENGQSUB500 
250 IFP=21THENGO3UB600 
260 IFP=22THENGOSUB700 
27U IFP=32THENGOSUB800 

272 NJ="ir^J»k3n ,, :S=S+l 

273 M$=MIDf<Nf,1,S) 

274 PR I NT " 3" ; m ; " 33HQTS : ; SH ; Mt ; " Il SCORE : *" ; SC ; ; " Il " : I FS=8THENS= 1 

300 POKER-2,0 ^ POKER-1,1 : POKER,2■POKER+1,3 : POKER+2,4 :POKEA+3,5•POKER-22.6 POKER-2 

1.7 

310 FORI=0TQ50 : NEXT 

320 POKER-2,8■POKER-1,3 POKER,8 : POKER*1,8 POKER+2,8 POKER+3,3 POKER-22,8 : POKER-2 

1.8 

330 GOTO150 
340 : 

400 PQKER-24,0‘POKER-23, 1•POKER-22,2 POKER-21,3 = POKER-20,4 POKER-19,5 :POKER-44,6 

401 POKEfì-43,7 

410 FORI=0TO50 NEXT 

420 POKER-24,8•POKER-23,3■POKER-22,3 :POKER-21,8-POKER-20,3 : POKER-19,3:RQKER-44,8 

421 POKEfi-43,3 
430 R=R-22 
440 RETURN 
450 : 

500 POKEfl+20,0 : POKER+21, 1= POKER+22,2 :POKER+23,3 :POKER+24,4 : POKER+25,5 : POKER,6 : PO 
KER+1,7 

510 FORI=0TO50:NEXT 
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520 POKER+20,3 ; POKER+21,8 : POKER+22,3 :PUKER+23,8 :POKER+24,8 : POKER+25,3 : POKER,3 : PO 

KER+1,8 

530 R=R+22 

540 RETURN 

550 : 

600 POKER-3,0 :POKER-2,1 : POKER-1,2 : POKER,3 POKER*1,4 :POKER+2,5 :POKEfì-23,6 :POKER-2 

2.7 

610 FORI=0TO50’NEXT 

620 POKER-3,8 :POKER-2, 3 : POKER-1,8 : POKER,8 : POKER*1,3 :POKER+2,8 :POKER-23,8 :POKER-2 

2.3 

630 R=R-1 
640 RETURN 
650 : 

700 POKER-1,0 ^ POKER, 1 •’ POKER* 1,2 : POKER+2,3 ■ POKER+3,4 : POKER+4,5 : POKER-21,6 : POKER-2 
0,7 

710 FORI=0TQ50 : NEXT 

720 POKER-1,8 = POKER, 3 •' POKER* 1,8 = POKER+2,8 : POKER+3, 8 : POKER+4,8 : POKER-21,8: POKER-2 
0,8 

730 R=R+1 
740 RETURN 
750 : 

800 POKER-2,0 : POKER-1,1 : POKER,2 : POKER*1,3:POKER+2,4 :POKER+3,5 :POKER-22,6 :POKER-2 

1.7 

809 R$= " 

310 X$= "a*/!":V$=" SWSB":W=254:G0SUE325 

820 RETURN 

825 POKED,0 

830 POKEC,15 

840 FORSE=0TO10 

860 PRINTLEFTf(R$,22-SE);SPCCSE); VS: SPC<20-SE*2>,Y$; 

875 PRINTLEFT$<R$,22-SE>;SPC<SE>; M kH”;SPC<20-SE*2>;"kH"; 

830 POKED,W-SE*5 
890 POKEE-1,W-3E#6 
900 NEXTSE : POKEC,5 
910 POKED,130•POKEE-1,0 

920 IFPEEK<7930)=0RNDPEEK<7935 > =5THENGOTO940 
930 SH=SH-1 

935 POKER-2,8 : POKER-1,8 : POKER,8 : POKER*1,8 POKER+2,8 : POKER+3,8 :POKER-22,8 :POKER-2 

1.3 

936 RETURN 

940 POKEC,15:FORSE=0TO6 

945 K=INT<RND<1)#255> + l 

950 POKEF, 3 

960 POKED,211 

970 FORSI=0TO30 : NEXT 

980 POKEF,K 

990 POKEE,211 

994 FORSI=0TO30 : NEXT 

995 NEXT SE :POKED,8 :POKEE,0 :POKEF,8 

996 SC=SC+25 : SH=3H-1 

997 POKER-2,8 : POKER-1,8:POKER,3 POKER*1,8:POKER+2,8 :POKER+3,8 :POKER-22,8 :POKER-2 

1.8 

993 GOTO140 
1000 : 

2140 : 

2160 : 

9000 POKED,0 :POKEC,0 :POKEE,0 :POKEF,3 

9010 FORK=0TO115 :POKE7680+K,32 :NEXTK : POKEF-10,242. 

9020 PRINT"nWMclPWHk. tLTRR PRRTITR ?" 

9021 PRINT"M«H:l #CORE:";SC 
9030 GETF*:IFFf=""THEN9030 
9040 IFF$="S"THENRUN 

9050 IFF$="N"THENSVS7343 
9060 GOTO9030 

PERDV. 
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Rapina in banca 



Che ne direste di un "colpo" da qualche milione di dollari? Entrare nella Banca sarà abbastanza faci¬ 
le, ma vi attenderanno sei difficili prove e fallirne una farà crollare tutti i bei sogni da... miliardari!!! 
Buon lavoro... dunaue! 

Istruzioni e comandi sono contenuti nel listato 



1 

a 

3 

4- 

5 

6 

7 

8 
9 

1Q 
1 1 
ia 

13 


REM RRPINfl IN BANCA 
LET RN=0 
LET PM = 0 
LET N$ = " 

GOSUB 5000 

PRINT "QUANTI GIOCATORI?" 
INPUT PL 
LET 5=0 
FOR U = 1 TO PL 
PRINT ,,' 

LET PN =0 
PAUSE 75 
CL5 


14- 

PR INT 


15 

PRINT 

RT 

; pm 

17 

PRINT 

RT 

16 

PRINT 

RT 

22 

PRINT 

RT 

/N) " 

23 

INPUT 

1$ 

24- 

IF 1$ 

= "N 

25HIF 1$ 

= ”S 

30 

PRINT 

RT 


NOME - 


_J"; Nt 

3,14.; "IH3H" ; ah 
5,7,“ISTRUZIONI?<5 


' THEN GOTO 10© 
THEN GOTO 30 
5,7; ”| 


m 


m 


33 PRINT ,,"DEUI ENTRARE IN UN 
R BANCA DOUE CI SONO PIU DI $10 
0-000.000. DOURAI: '* 

34- PRINT "SUPERARE MOLTI OSTRO 
OLI PER AR- RIDARE ALLA CA5SAFOR 
TE. DURANTE IL GIOCO PUOI GUADAG 
NPRE O PER- DERE PUNTI." 

35 PRINT "TU SEI : - ""G. 

4-0 PRINT "SE AURA I SUCCESSO , D I 
' ! “RRAI COSI: (£B> . SE FALLISCI, IN 
U‘ CE : (B) . " 

30 PRINT ,,"PREMI N/L PER CONT 
I .UARE" 

90 IF INKEY$ = "" THEN GOTO 90 
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M 


(RND«3)+1 


108 CLS 

109 LET R = INT 

110 PRINT " g»-- 

120 PRINT "TRE CORRIDOI °ORTRNO 
RLLR STRN- ZR DELLfi CRSSRFORTE. 
140 PRINT *'QURLE SCEGLI? t 1.. 2,3 

) " 

150 INPUT C 

170 PRINT 

180 PRINT RT 7.0, 


182 FOR F = 1 TO 
184 PRINT 



PRESO OR U 


GIOC 


190 IF C=1 THEN LET Y=9 

200 IF C = 2 THEN LET Y = 14 

210 IF C=3 THEN LET Y = 19 

220 LET X =6 

230 PRINT RT X,Y;" " 

240 LET XbX+1 

250 IF X=15 THEN GOTO 300 
255 IF X = 10 RND C=R THEN GOTO 3 

50 

260 PRINT RT X,Y;"0" 

270 GOTO 230 

300 PRINT RT X,Y;"B" 

302 PRUSE 100 

305 CLS 

306 LET O = INT (RND*30) +10 

308 PRINT *' ALLARME NON SCATTATO 

*310 PRINT “GUADAGNI " j O *■ 100 ; " P 

UNTI" 

330 GOTO 400 

350 PRINT RT X,Y;"B“ 

352 PRUSE 100 

354 CLS 

355 PRINT ‘SEI STRTG 

N POLIZIOTTO" 

360 PRINT "PERDI 500 PUNTI 
365 LET PN-PN -5BQ 
368 PRINT ■ . " lawartH " ; PN 

370 PRINT , /'PREMI N/L PER 
RRE ANCORR" 

380 IF INKEY* = " " THEN GOTO 360 

390 GOTO 105 

400 LET PN =PN 4- (Q » 1 00) 

405 PRINT , , "tìSlIM® "jPN 
410 PRINT ,,"PREMI N/L PER CONT 
INUARE" 

420 IF INKEY* = "" THEN GOTO 420 
430 CLS 

440 PRINT ______ 

4 50 LET Z = INT (RND *-6) «-1 

455 PRINT , .."HAI TROUATO UNA CH 
IRUE.ORR DEL* I PROVARE AD APRIRE 
UNR DELLE POR-TE (0).USA I TRSTI 

CURSORE PER MUOVERTI." 

456 PRINT , /'PREMI N/L PER CONT 
INURRE" 

457 IF INKEY $ = " " THEN 

458 CLS 

459 LET L =6 

460 LET C =4 

461 LET X = INT <RND*5) 

462 LET Y = INT (RND*5) 

464 PRINT RT X,Y;"B*‘ 

470 LET R = INT ( RND *-5) 

472 LET B = INT (RND*5) 

474 PRINT RT R,6."B" 

475 PRINT RT L.C." " 

4 77 LET L =L. + ( INKE v‘ $ = " 6 " ) - ( INKEY 
*="7") 

478 LET C=C-+ ( INKEY * = " 8" »-( INKEY 
* = "5") 

480 IF L=X RND C=Y THEN GOTO 55 

0 

490 PRINT RT L,C;"0" 

500 GOTO 475 

550 PRINT RT L,C;"BT 

555 PRUSE 100 

556 CLS 

560 PRINT "BRAVO.HAI SCELTO BEN 
E.PRS5I RLLR PROSSIMA FASE" 

562 PRINT "HRI T OT RLIZZRTO ": ( 
Z*Z*100);" PUNTI" 

563 LET PN=PN + (Z»Z »10O) 

564 PRINT ■ . " tairaiaì ";PN 

565 PRINT , /'PREMI N/L PER CONT 
INURRE" 

566BIF INKEY* = "" THEN GOTO 566 

567 CLS 

568 GOTO 600 

570 PRINT RT L,C;"D" 


575 PRUSE 100 

576 CLS 

578 PRINT "CHE SFORTUNR.HRI SCE 
LTO LR PORTR SBAGLIATA. CROI IN 
UN POZZO E PERDI 500 PUNTI." 

580 LET PN-PN -5QQ 

581 PRINT . , " ; PN 

582 PRINT , /'PREMI N/L PER RIPR 
OURRE" 

534 IF INKEY$="" THEN GOTO 584 
566 CLS 
590 GOTO 459 
600 PRINT 


610 PRINT ,,"DEVI CAMMINARE SU 
DI UNR RSSE, MRRCIR IN RLCUNI P 
UNTI. FRI RT-TENZIONE R NON CRD 
ERE . " 

612 PRINT "RLLR FINE VEDRAI UNR 
615 PRINT "PREMI ""U""PER GAMMI 
NRRE E" per SALTARE" 

620 PRINT ,,“PREMI N/L PER CONT 
INURRE" 

630 IF INKEY* = "" THEN GOTO 630 

640 CLS 

700 LET L =4 

705 LET C=0 

710 PRINT RT 5,0; "■» 

7 i 2 PRINT rt 12,0; ''mmmmmmmmm 


GOTO 457 


7 15 PRINT RT 4,17;"+-" 

720 PRINT RT L,C," “ 

730 IF INKEY$ = "U" THEN LET C = C «- 

1 

735 IF L =4 RND C = 1 OR L = 4 RND C 
= 2 OR L=4 RND C = 5 OR L = 4 RND C = 7‘ 
OR L =4 RND C = 10 OR L = 4 RND C = ll 
OR L =4 RND C' = 12 OR L = 4 RND C = 13 
OR L=4 RND C = 15 OR L = 4 RND C=16 
THEN GOSUB 900 

737 IF INKEY$="J" RND L=L+1 RND 
C=C+1 THEN GOTO 650 

740 IF INKEY $ = " «J " THEN GOSUB 95 

0 

745 IF INKEY*<>"U" RND L<4 THEN 
GOSUB 1000 

747 IF INKEY * = "U " RND L = L+-1 RND 
C=C+1 THEN GOTO 850 
750 PRINT RT L,C;"0" 

780 IF L=4 RND C=18 THEN GOTO 1 
200 

765 IF 019 THEN GOTO 802 

766 IF 0=18 RND L < 5-4 THEN GOTO 
802 

770 IF C=19 RND L=4 THEN GOTO 1 
500 

775 LET Z = INT (RND*20) +1 
780 IF L =4 RND C = 17 THEN LET PN 
= PN+ ( Z *20) 

800 GOTO 720 

802 PRINT RT L,C;"0■ , 

803 PRUSE 100 
804|CLS 

605 PRINT "SEI USCITO DALLA BAN 

Cfi 

810 PRINT "PERDI 1000 PUNTI" 

812 LET P N = P N-1000 
614 PRINT , , "SHBuB “;PN 
815 PRINT ,,"PREMI N/L PER RIPR 
OURRE" 

820 IF INKEY*="“ THEN GOTO 620 

825 CLS 

830 GOTO 700 

850 PRINT RT L,C;"B** 

855 PRUSE 100 
860 CLS 

862 PRINT "STRI BARANDO, E R ME 
I BRRI NON PIACCIONO." 

865 PRINT , , "aaZBB " ; PN 

866 PRUSE 120 

067 IF P N(PM RND U(PL THEN GOTO 
890 

368 IF PN >PM THEN GOTO 4005 

890 PRINT ,,“PREMERE N/L PER PR 
891ÌIF INKEY * = "" THEN GOTO 691 

892 CLS 

893 NEXT U 

894 GOTO 8 

910 .PRINT. RT L.,C; “ 

915 PRINT RT 11,C,"B” 

916 PRUSE 100 

917 CLS 

920 PRINT "UN CRNE DR GURRDIR T 
I HR MORSO" _ 

922 PRINT ‘TITlgnn ";PN 

923 PRUSE 150 

925 IF PN >PM THEN GOTO 4005 
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926 IF U=PL THEN GOTO 6000 

930 IF PN <PM AND U<PL THEN GOTO 

934. 

934 PRINT , , "PREMERE N/L PER PR 
OX. GlOCRTORE" 

935 IF INKEV$ = “ " THEN GOTO 935 

940 CLS 

942 NEXT U 
945 GOTO 8 
950 LET L =L -1 
960 LET C=C+1 
980 GOTO 720 

1000 LET L =L 4-1 

1001 LET C=C + 1 

1002 IF INKEYIs'^J" THEN GOTO 850 

1005 IF L>*4 THEN LET L = 4 

1130 RETURN 


1200 

PRINT 



1205 

PRINT 

RT 

5,18;"»" 

1206 

PRINT 

RT 

5,19; "BHRJj 

1210 

PRINT 

RT 

6,18; "gl 

1220 

PRINT 

RT 

7,18;"1 1 

1230 

PRINT 

RT 

6,18;"1 1 

1240 

PRINT 

RT 

9.18; "li 

1.250 

PRINT 

RT 

10,18; ''* 

1260 

PRINT 

RT 

11,18;"* 

1270 

PRINT 

RT 

12,18; "m 

1280 

GOTO 720 


1500 

PRINT 

RT 

4,19;" “ 

1505 

LET L 

= 11 


1506 

LET C 

= 19 


1510 

PRINT 

RT 

L , C ; " " 


1511 LET C=C+1 

1512 IF C =27 THEN GOTO 1515 

1513 PRINT RT L.C;"0" 

1514 GOTO 1507 

1515 PRINT RT L,C;"g" 

1520 PRUSE 150 

1530 CLS 

1535 LET X = INT <RND*100) -fi 
1540 PRINT "BRADO.HAI TROURTO IL 
CORRIDOIO. GURDRGNI "iXneO; M 
PUNTI." 

1550 LET PN=PN+_(Xil00) 

1560 PRINT , , "aH2HB ";PN 

1600 PRINT , , “PREMI N/L PER CONT 

INURRE ** 

1610 IF INKEY $ = " " THEN GOTO 1610 
1620 CLS 
1700 PRINT 
1720 PRINT 
1725 PRINT 
CHE- 

1730 PRINT 
INURRE ** 

1735 IF INKEY$=" 

1740 CLS 

1745 PRINT RT 5, 


/'SEI IN UN CORRIDOI 
"ESPLOSILO.102 CRRI 

, /'PREMI N/L PER CONT 


THEN GOTO 173! 


Sto » 

1750 PRINT RT 6,0;“* 

fU f TgffgP. . m i n»- 

1756 LET C = 14 

1760 PRINT RT L,C;"0 


i 

I 


1770 PRINT RT 6,15, "| 

1780 PRINT RT 7,15;"| 

1800 LET U = INT IRND*2) 4-1 
1810 INPUT I 
1820 IF I<>U RND U = 1 THEN GOTO 1 
850 

1825 IF I<>U RND U = 2 THEN GOTO 1 
880 

1840 IF IsU THEN GOTO 1950 

1850 PRINT RT L , C ; ,, D'’ 

1851 PRINT RT 6,15;" " ; RT 7,15;** 

1855 PRUSE 100 
1858 CLS 

1860 PRINT "TROPPO ESPLOSIOO.SEI 
SRLTRTO IN RR IR." 

1862 PRINT , , “QH1HH ";pn 

1863 PAUSE 120 

1865 IF PN > PH THEN GOTO 4005 

1366 IF PN <PH RND U<PL THEN GOTO 
1869 

1367 IF U=PL THEN GOTO 6000 

1869 PRINT "PREMERE N/L PER PROX 
. GIOCATORE" 

1870 IF INKEY $ = " “ THEN GOTO 1670 
1872 NEXT U 

1875 CLS 
1878 GOTO 8 
1880 PRUSE 100 

1885 CLS 

1886 LET O = INT (RND*20) +1 


1888 PRINT "ESPLOSIUO INSUFFICIE 
NTE. PERDI " ; 0*100; " PUNTI" 

1889 LET PN=PN-JQ*10©> 

1890 PRINT , , "SHEHB "; PN 

1893 PRINT , /'PREMI N/L PER RIPR 
QUARE" 

1895 IF INKEY|r“" THEN GOTO 1895 

1898 CLS 

1900 GOTO 1740 

1950 PRINT RT 6,15;" " 

1960 PRINT RT 7,15;" " 

1965 PRINT RT L,C , ' " 

1970 LET C=C*1 

1980 PRINT FfT L,C,"G" 

1990 IF C=31 THEN GOTO 1995 

1992 GOTO 1965 

1995 PRINT RT L,C;"H" 

2000 PRUSE 100 
2005 CLS 

2010 PRINT "BRRUO.HRI APERTO LA 
PORTA. GUR- DRGNI 2000 PUNTI." 
2015 LET PN =PN 4-2000 
2020 PRINT , , "SRQH " ; PN 
2030 PRINT "PREMI N/L PER CONTIU 
ARE " 

2040 IF INKEY* = "" THEN GOTO 2040 
2050 CLS 
2100 PRINT 
2110 PRINT ,, 

L PAUIMENTO 
ORRENTE DOPO 
2120 PRINT ' 

RRUTTORE E 
RENTE." 

2130 PRINT "SE LO TROUI 
RPPARIRR UNCORRIDOIO." 

2135 PRINT "USA I TASTI CURSORE 
PER MUOUERTI" 

2140 PRINT ,,"PREMI N/L PER CONT 
INURRE" 

2150 IF INKEY$="" THEN GOTO 2150 
2160 CLS 
2175 LET T = 100 
2194 LET L =7 
2196 LET C=0 
2200 PRINT RT 5,0, "j 
*- 

2210 PRINT RT 8,0; "1 

m 

2220 PRINT RT 4,6;"* 

2230 PRINT RT 3,6;"* 

2235 PRINT RT 6,6;" 

2240 PRINT RT 2,6;"* 

2245 PRINT RT 7,6;" 

2250 PRINT RT 1,6," 

2260 PRINT RT 0,6;" 

2270 PRINT 


SEI IN UNA SALA. I 
SARA PERCORSO DR C 
,100 SEONDI." 

DEUI TROUARE UN INTE 
BLOCCARE COSI LR COR 

IN TEMPO 


RT 

2280 PRINT RT 


9 , 6 ; " 

10 , 6 ;"* 


2290 PRINT RT 11,6;"* 
2300 PRINT RT 12,6;"» 
2310 PRINT RT 13,6; 



2320 

2325 

2326 
2330 
2333 
2335 
2340 
$ = "7* 
2350 
S = "5* 

2355 

2356 

2357 

2358 
= 7 

2360 

00 

2365 

OT 

2370 

2380 

2390 

2400 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 
2308 


PRINT RT 14,6; "j 
LET X = INT (RND*12) +1 
LET Y = INT (RND *9) *7 
PRINT RT L,C," " 

PRINT RT X . Y : " = " 

LET T=T-1 

LET L=L+(INKEY$="6")-(INKCY 

LET C=C* (INKEY$ = "8") -(INKEY 

IF L < =0 THEN LET L = 1 
IF L > =14 THEN LET L = 13 
IF 0=17 THEN LET C = 16 
IF L < >7 RND C < =6 THEN LET C 

IF L=X RND C=Y THEN GOTO 25 

IF^C >| THEN PRINT RT 6,6;"» 

IF T = — 1 THEN GOTO 2600 
PRINT RT L,C;"O 
PRINT RT 0,22, "HO! ";T; 

GOTO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
LET L 
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C; **| 


’ELETTRIZ 


2509 LEI C = ■=» 

2510 PRINT RT L , C ; ** " 

2511 LET L=L + 1 

2512 1F L=20 THEN GOTO 2515 

2513 PRINT RT L,C;"0" 

2514. GOTO 2510 

2515 PRINT RT L,C;"H" 

2519 PROSE 120 

2520 CLS 

25 30 PRINT '* INTERRUTTORE TROURTO 
. GURDRGNI ";T*100; " PUNTI*’ 

2535 LET PN=PN +(T»1 O0) 

254-0 PRINT , , "BHHOB ** ; PN 

2550 PRINT , , "PREMI N/L PER CONT 

INURRE" 

2560 IF INKEY*=”" THEN GOTO 256© 
2565 CLS 
2570 GOTO 2700 
2600 PRINT RT L 
2605 PRINT RT X,Y;" 

2610 PRUSE 100 
2620 CLS 

2630 PRINT "SEI STRTO 

RTO. . 

264-0 PRINT , , •♦ a a mtfj *‘;PN 
264-2 PRUSE 120 

2645 IF PN > PM THEN GOSUB 400S 
2650 IF PN <PH ANO U<PL THEN GOTO 
2659 

2655 IF U=PL THEN GOTO 6000 

2659 PRINT , /'PREMERE N/L PER PR 
OX.GIOCATORE" 

2660 IF INKEV$="" THEN GOTO 2660 
2670 CLS 

2672 NEXT U 

2680 GOTO 8 _ 

2700 PRINT "HE9BHS" 

2710 PRINT ,,"SEI ARRIUATO RLLR 
CRSSRFORTE. UEORRI LA COMBIWRZ 
IONE PER POCHISECONDI." 

2720 PRINT "RICORDALA PERCHE DOU 
RRI INSERIR- LR" 

2725 PRINT _____ 

2740 PRINT , , “PREI 
INURRE” 

2750 IF INKEY$=“" THEN GOTO 27S0 

2760 CLS 

2770 LET L = 15 

2780 LET C=9 


2790 

PRINT 

RT 

L , c ; 


2800 

PRINT 

RT 

10 , 6 ; 


2801BPRINT 

RT 

ll,6; 

" 

2802 

PRINT 

RT 

12,6; 

“ 

2803 

PRINT 

RT 

13,6; 

" 

2804 

PRINT 

RT 

14.6; 

" 

2305 

PRINT 

RT 

15,6; 

" 

2810 

PRINT 

RT 

16,6; 


2811 

PRINT 

RT 

17,6; 

.» 

2612 

PRINT 

RT 

18,6; 


2813 

PRINT 

RT 

19,6; 

•* 1 

2814 

PRINT 

RT 

20,6; 
L , C ; 


2820 

PRINT 

RT 

O 



3000BLET MaINT (RND*21000)*10000 
3010 PRINT RT 17,7;M 
3020 PRUSE 25 
3025 PRINT RT 17,7;** 

3027 PRINT RT 0,0; ''DIGITARE COMB 
INR2IONE” 

3028 PRUSE 75 

3029 PRINT RT 0,0;;; 

3030 INPUT T „ _ 

3040 IF T=H THEN GOTO 3S00 
3050 IF T < > H THEN GOTO 3750 
3500 PRINT RT 16,8;** 

3510 PRINT RT L,C;** ** 

3520 LET L=L + 1 

3530 IF L =20 THEN GOTO 3545 
3535 PRINT RT L,C;”0** 

3540 GOTO 3510 

3545 PRINT RT L,C;"H" 

3546 PRUSE 100 

3550 CLS 

3551 _FOR F»1 TQ 21 

>RINT 

3553“NEXT F 

3554 PRUSE 100 

3555 CLS 

3558 LET K*INT <RND*S00> +100 
3560 PRINT "BRRUr HAI RPERTO LR 
CRSSRFORTE. ORR * ZI RICCO” 

3565 PRINT "TOTR_IZZI **;K»100;** 
PUNTI" 

3570 LET PN =P N+ (K»1 0O> 

3575 PRINT , , "bUdti*? ** : PN 


3578 PRUSE 100 

3580 IF PN >PH THEN GOTO 4005 
3585 IF PN <PH THEN PRINT , ,"PREM 
I N/L PER GIOCRRE RNCORR** 

3590 IF INKEY$="" THEN GOTO 3590 
3595 GOTO 5 

3750 PRINT RT L.C/'B" .. _ „ _ 

3770 PRINT RT 15,7 ;**=>**; RT 15,10 

3780 PRINT RT 17,7;H 
3790 PRUSE 150 
3800 CLS 

'NON CE LR HRI FRTTR. 


ERI ORHRI UICINO RI 


PAZIENZA. 


; PN 


3810 PRINT ' 

CHE PECCRTO 
3820 PRINT ' 

100.000.000‘ 

3830 PRINT 1 

3840 PRINT 

3841 PRUSE 150 

3842 IF PN <PH RND U<PL THEN GOTO 
3850 

3344 IF PN >PM THEN GOTO 4005 
3846 IF U=PL THEN GOTO 6000 
3850 PRINT ,,"PREMERE N/L PER PR 
OX.GIOCATORE" 

3860 IF INKEY*="" THEN GOTO 3860 

3870 CLS 

3872 NEXT U 

3880 GOTO 8 

4005 CLS 

4006| IF PN>PM THEN LET PH=PN 
4008 PRINT "HAI TOTRLIZZRTO IL M 
RX.PUNTEGGIO" 

4010 PRINT "INSERISCI IL TUO NOH 

E" 

4015 INPUT N* „ 

4020 IF LEN N$ >12 THEN GOTO 400S 
4025 IF LEN N$<*rl2 THEN GOTO 402 
6 

, ,N* 

, , "ETÀ 7" 


, ,"O.K? CS/N) 


4026 PRINT 

4027 PRINT 

4028 INPUT RN 

4029 PRINT ,,RN 

4031 PRINT 

4032 PRUSE 30 

4033 INPUT I* 

4034 IF I*="S" THEN GOTO 4036 

4035 IF I*="N" THEN GOTO 4005 

4036 IF U < PL THEN GOTO 4040 

4037 IF U=PL THEN GOTO 6000 
4040 PRINT ,,"PREHERE N/L PER PR 
O.GIOCATORE" 

4045 IF INKEY$ = " *' THEN GOTO 4045 
4050 CLS 
4052 NEXT U 
4055 GOTO 8 

5000 PRINT "«a****************** 
************" 

5010 PRINT LIST PRES 

ENTR *" 

5020 PRINT ,,”****************** 
**************' 

5030 PRINT ,,, 


5106 

5107 
ENTO 

5108 

5109 

5110 
5150 
6000 
6010 
6011 
601 
TO " 
6020 
ARE 
6030 
6040 
6050 


FOR F=1 TO 3 
PRINT " BUON 


DIUERTIM 


NEXT F 
PRUSE 1S0 
CLS 

RETURN 

CLS 

PRINT RT 1,1; **BRAUO ** ; N* 
PRINT RT 3,1;"HRI UINTO" 
RINT RT 5,1;"HRI TOTALIZZA 
PUNTI" 

PREHI N/L PER GIOC 


; PH; " 

PRINT ,, 
RNCORR" 

IF INKEY % = 
CLS 

GOTO 5 


THEN GOTO 6030 



SO 



























zrr 

I IP# 

rr? •*? ?????;_ r*! 


TEXAS TI 99/4A 


Conversioni 
Commodore- 

Texas 


In questo numero presentiamo un programma che potrà essere utile non solo ai possessori del Texas, 
ma anche a tutti coloro i quali desiderano conoscere il significato di quelle istruzioni basic tipiche di al¬ 
cuni computers e facilmente implementabili su altri che, invece, ne sono sprovvisti. 

Una delie ricorrenti lamentele dei possessori del TI-99/4A è la scarsa disponibilità di software. 
Completamente opposta si presenta, a questo proposito, la situazione per altri tipi di computers. 

È il caso del VIC 20 per il quale esiste, ormai un'enorme quantità di software, che spesso, si rivela di 
pessima qualità. 

Il programma è di valido aiuto per la comprensione dei listati destinati al VIC 20. 

Se, infatti vi capiterà tra le mani un programma per il VIC, riuscirete a capire il significato dei simboli e 
delle istruzioni non presenti nel set del vostro computer. 

In genere la maggior parte delle istruzioni di un programma in basic è uguale per molti tipi di compu¬ 
ters. Le parti che cambiano sono quelle riguardanti la gestione grafica dello schermo / gli effetti sonori 
e le istruzioni di colore per i caratteri ed il fondo-margine dello schermo. In particolare, sul VIC 20 
vengono usati alcuni caratteri grafici che designano comandi basic. 

Facendo girare questo programma vengono visualizzati tutti i simboli in campo inverso del VIC che 
designano un'istruzione ed il relativo significato in TI BASIC. 

Superata tale fase, compare il menù delle funzioni; opzionando la funzione richiesta, vengono visua¬ 
lizzati gli esempi e di seguito le tavole di conversione dei valori impiegati. 

Sul VIC molti comandi sono realizzati attraverso opportune istruzioni POKE e/o PEEK che intervengo¬ 
no in modo diretto sulle singole locazioni di memoria cambiandone il contenuto. 

Sul TI 99/4A queste istruzioni mancano completamente. 

Esistono, però istruzioni specifiche che ovviano all'impossibilità di intervenire in modo diretto sul lin¬ 
guaggio vero e proprio della macchina. 

Un discorso particolare merita la creazione dei caratteri, che sul Texas è molto più semplice che sul 
VIC, essendo essa supportata da una specifica istruzione come il CALI CHAR. 

Sul VIC il tutto è molto più laborioso: bisogna intervenire sui puntatori della RAM ed alternarne il va¬ 
lore per riservare una zona di memoria ai DA TA che identificano i nuovi caratteri, poi alterare il pun¬ 
tatore di lettura dei caratteri, costringendolo a leggere quelli voluti da noi e non quelli del set normale. 
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TEXAS TI 99/4A 



::: ::: ::::::: 
::: ::: 

::: ::: 
alili :s: issisi 1 



Per fare ciò si interviene con delle POKE sulle locazioni 55 e 56 (controllo dei puntatori di fine memo¬ 
ria RAM) e sulla locazione 36869 (controllo modo testo = 240; controllo modo grafico = 255). La 
maggior parte dei lettori è a conoscenza del fatto che i caratteri visibili sullo schermo sono in realtà 
formati da una griglia di 8x8punti, chiamati PIXELS. 

Leggendo la griglia, linea per linea, si riesce ad identificare con un sistema numerico la posizione dei 
pixels accesi o spenti. 

I dati di identificazione dei pixels sono decimali per il VIC ed esadecimali per il TEXAS. 

Se non siete molto pazienti o non avete voglia ai convertire da decimale ad esadecimale, il vostro TE¬ 
XAS farà anche questo. 

II programma, dopo un opportuno INPUT in decimale, visualizzerà una stringa alfanumerica di 4 ele¬ 
menti, ma attenzione, solo gli ultimi 2 a destra sono quelli significativi. 

Ancora una piccola annotazione nel TEXAS l'istruzione CALL SOUND può anche assegnare la dura¬ 
ta di esecuzione di un suono. 

Nel VIC tale assegnazione si effettua con un ciclo di FOR-NEXT che introduce un ritardo nel program¬ 
ma. 

Tenetene conto perché il TI 99/4A esegue le istruzioni sonori indipendentemente da ciò che visualizza 
sullo schermo o da qualsiasi altra routine in cui è impegnato nella esecuzione del programma. 

Il VIC, come la maggior parte dei computers, blocca ogni sua attività per la durata del suono solo e, 
dopo l'esecuzione della sua routine sonora, riprende lo svolgimento normale del programma. 

Diamo di seguito alcune indicazioni generali riguardanti i comandi basic per i due computer che pos¬ 
sono tornare utili anche ai molti possessori di computer diversi. 

LINEE CON PIÙ ISTRUZIONI. 

Non sono accettate dal TEXAS, contrariamente al VIC che ne accetta fino ad un numero di 88 caratteri 
per linea di programma. 

ONN GOTO 100,200... 

Tale istruzione è presente su entrambi i computers, ma è bene saperlo, può essere cambiata in: 
GOTON * 100. 

MID$: RIGHTS; LEFT$. 

Sono comprese solo sul VIC20 mentre, sul TEXAS esiste la sola SEG$. 

Le funzioni LEFT$ (A$, x), MID$ (A$, x, 1) e RIGHT$ (A$,x) indicano rispettivamente: 

0) Gli x caratteri piu a sinistra di A$. 

0) Gli y caratteri della stringa A$ partendo dal carattere x. 

0) Gli x caratteri più a destra di A$. 

Il SEG$ del TEXAS corrisponde alMIDS del VIC. 

GET A$. 

Esiste sul VIC 20 ed il suo corrispondente "texano " è: 

CALL KEY(0,K,S) 

in cui K memorizza direttamente il codice ASCII del tasto premuto. 

Per il VIC bisogna simulare con K=ASC (A$). 

AND, OR. 

Un'istruzione del tipo: 

IFK=490RZ=54 THEN... 

implementabile direttamente sul VIC20 deve essere trasformata sul TEXAS in: 

IF(K=49) + (Z=54)THEN... 

Analogamente se l'istruzione fosse stata: 

!FK=49ANDZ=54 THEN... 

Usuo corrispondente sul TEXAS sarebbe: 

IF(K=49) - (Z=54) THEN... 

NOMI DELLE VARIABILI. 

Il TI 99/4A accetta nomi di variabili lunghi fino a 15 caratteri contrariamente al VIC che riconosce solo 
le prime 2 lettere. 

PRINTFRE (0). 

Tipica del VIC 20, serve per sapere quanta memoria libera c'è; sul TEXAS, invece, bisogna implemen¬ 
tare questo piccolo programma: 


8t? 









TT 


B 1 * M B B 
••••••• ••• 

::: s: «: 


TEXAS TI 99/4A 


lM=M + 8. 

2GOSUB 1. 

Dare il RUN ed attendere qualche attimo. 

Presto apparirà il messaggio di errore MEMOR Y FULL. 

Adesso digitate: 

PRINTM e premete di seguito ENTER; 

Il computer visualizzerà la quantità di memoria rimasta libera. 

Prima di avviare il programma vero e proprio, il cui primo numero di riga dovrà essere maggiore di 2, 
ricordatevi di cancellare le righe 1 e 2. 

GESTIONE DIRETTA DEL REGISTRATORE. 

Per aprire il "colloquio " con il registratore per la creazione di un file la procedura è sostanzialmente 
identica. 

La creazione del file sul VIC 20 avviene iniziandolo con questa istruzione: 

OPEN, 1,1,0, "nome del file" per la lettura. 

Il corrispondente sul TEXAS è: 

OPEN 1: "CS1 ", INPUT, SEQUENTIAL, INTERNAL, FIXED. 

Per la registrazione sul VIC si usa: 

OPEN 1,1,1, "nome del file". 

Per il TEXAS si usa: 

OPEN 1: "CSI", INPUT, SEQUENTIAL, INTERNAL, FIXED. 


Struttura del programma. 


100 - 180 
190 -240 
250 - 320 
330 -520 
530 - 660 
670 - 770 
780 - 
790 - 840 
850 -900 
910 -1000 
1010 - 
1020 -1100 
1110 - 
1120 -1210 
1220 - 
1230 - 
1240 -1330 

1340 - 
1350 - 1420 
1430 - 
1440 - 
1450 - 
1460 - 1450 
1550 - 
1560 - 1660 
1670 - 
1680 - 1720 
1730 -2140 
2150 - 
2160 - 
2170 -2130 
2320 - 


Note identificazione programma. 

Presentazione programma. 

Creazione caratteri grafici speciali. 

Visualizzazione caratteri speciali e spiegazione loro significato. 

Visualizzazione caratteri speciali e spiegazione del codice colori da essi identificato. 
Spiegazione generale del programma. 

Salto incondizionato subroutine (CALI KEY). 

Presentazione Menu. 

Scelta opzione. 

Spiegazione sulla gestione del suono sul VIC. 

Salto incondizionato subroutine (CALI KEY). 

Tabella di conversione valori scala musicale. 

Salto incondizionato. 

Esempio dimostrativo e comparazione istruzioni. 

Salto incondizionato subroutine (CALL KEY). 

Ritorno al Menù. 

Spiegazione sulla gestione del colore di fondo-margine dello schermo sul VIC e ta¬ 
bella di corrispondenza dei colori comuni. 

Salto incondizionato. 

Esempio dimostrativo. 

Salto incondizionato. 

Ritorno al colore originale dopo l'esempio dimostrativo. 

Ritorno al Menù. 

Spiegazione e confronto sul modo di creazione caratteri. 

Salto incondizionato. 

Continua la spiegazione iniziata alla riga 1460. 

Salto incondizionato subroutine (CALL KEY). 

Creazione caratteri grafici speciali per disegno griglia carattere. 

Disegno della griglia caratteri. 

Salto incondizionato. 

Opzione per conversione Decimale (-) Esadecimale o ritorno al Menf. 

Conversione Decimale (-) Esadecimale dei DATA per la creazione di nuovi caratteri. 
Ritorno al Menù. 
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2330 -2140 

2420 - 
2430 -2500 

2510 - 
2520 -2560 
2570 - 


Spiegazione riguardante la mappazione dello schermo e rindirrizzamento dei carat¬ 
teri e colore. 

Salto incondizionato subroutine (CALL KEY). 

Spiegazione sull'indirizzamento dei colori nelle singole caselle dello schermo, codice 
dei colori di carattere. 

Ritorno al Menù. 

Soubroutine per l'istruzione CALL KEY. 

Fine programma. 


Ricordatevi che lo schermo del vostro TEXAS è di 28 colonne, quello del VIC di 22 colonne. 



100 REM ********************** 

110 REM * CONVERSIONE LIST * PATTERN CARATTERI 

120 REM * VIC 20 TI 99/4A * 

130 REM * §OPYRIGHT 1984 * 

140 REM * MASSIMO TRUSCELLI * 

150 REM * VIA STAMIRA , 70/9 * 

160 REM * TEL. 06 / 4244993 * 

170 REM * 00162 ROMA * 

180 REM ********************** 

190 CALL CLEAR 
200 CALL SCREEN(11) 

210 FRINT "CONVERSIONE PROGRAMMI"!: 

220 PRINT " VIC 20 < > TI 99/4A": :i: : : 

230 PRINT :::::: 

240 PRINT "PREMI ENTER PER TERMINARE" 

250 FOR C=128 TO 143 
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260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 


e loro":"significato sul VIC 20":::: 


* CALL CLEAR":: 

" = H0ME<CURSORE IN 
" = PRINT :<CURSORE 
" = <CURSORE SU>": : 

" = PRINT ;<CURSORE 
" = <CURSORE A SINISTRA)»" : : 
" = CARATTERE IN NEGATIVO": 
" = CARATTERE NORMALE":::: 
tasto" 


ALTO A' 
GIU* >": 

A": " 


SINISTRA)»" : : 


DESTRA>":: 


READ Ct 

CALL CHAR(C,C*> 

NEXT C 

DAT A C980B080C1E3F7FF,C3BDBFC3FDBDC3FF,E7DBBDBDB3DBC3FF,FFC3Q1B10181C3FF 
DATA C3FBFBFBFBFBC3FF,F7F7F7F7F7F7F7F7,83BDBD83B7BBBDFF,FFFFFFFFFFFFOOFF 
DATA OOFEFEFEFEFEFEFE,81BFBF83BFBF81FF,F3EFEFC3EF8F91FF,80C0E0F0FBFCFEFF 
DATA 5FAF5FAF5FAF5FAF,FFF7E3D5F7F7F7F7,FFFFEFDFSODFEFFF,FFFFFE815BDBDBFF 
CALL CLEAR 
CALL SCREEN(15) 

CALL COLOR(13,5,16) 

PRINT "Simboli grafici 
PRINT :::::: 

PRINT ::::::"Premi un tasto" 

CALL KEY(0,K,S) 

IF S=0 THEN 390 
CALL CLEAR 
PRINT CHR$(128); 

PRINT CHR*(129); 

PRINT CHR$(130); 

PRINT CHR$(131); 

PRINT CHR$(132); 

PRINT CHR4(133); 

PRINT CHR4(134); 

PRINT CHRf(135); 

PRINT "Premi un 
CALL KEY(0,K,S) 

IF S=0 THEN 510 
CALL CLEAR 
CALL COLOR(14,5,16) 

PRINT "CODICE COLORI 
CHRT(136);" = 

CHRT(137); 

CHRT(138); 

CHR$(139); 

CHR^(140); 

CHRT(141); 

CHR*(142); 

CHR4(143); 

"Premi un 
CALL KEY(0,K,S) 

IF S=0 THEN 650 
CALL CLEAR 

PRINT "ATTENZIONE!'!":: 

PRINT "La caratteristica'negati va ' " 

PRINT "non permettere l'accesso in" 

PRINT "cellule della mappa di":"memoria." 

PRINT "A ciò' e' contrapposta una":"buona capacita' del": 

PRINT "linguaggio di base.":"Ecco comunque,al cune loca-": 

PRINT "zioni di memoria del Vie,":"molto utili per sapere 
PRINT "cosa dovete -fare sul vostro": 

PRINT "TI 99/4A.": : 

PRINT : : :"Premi un tasto" 

GOSUB 2520 
CALL CLEAR 

PRINT "Quale opzione ?":::: 

PRINT " S = Suono":" V = Colori schermo": 

PRINT " C = Creazione caratteri":" A = Altro" 

PRINT :::::: 

PRINT "Premi il tasto opzione " 

CALL KEY(0,K,S) 

IF K=83 THEN 910 
IF K=86 THEN 1240 
IF K=67 THEN 1460 
IF K=65 THEN 2330 

IF (K0115) + (K0118) + (K< >99) + (K< >97) THEN 850 
CALL CLEAR 

PRINT "GESTIONE SONORA SUL VIC 20":"5 REGISTRI 
PRINT " POKE 36878,V":" POKE 36877,X": 

PRINT " POKE 36876,X":" POKE 36875,X": 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT 
PRINT 
PRINT 


CARATTERE VIC": 
COLORE NERO":: 

BIANCO":: 
ROSSO":: 
AZZURRO": 
PORPORA": 
VERDE":: 
BLU'": : 
GIALLO":: 


= COLORE 
= COLORE 
= COLORE 
« COLORE 
= COLORE 
= COLORE 
" = COLORE 
tasto" 


"del TI 99/4A,e' quella di": 
"modo diretto alle singole": 


DI MEMORIA) 
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950 FRINT " POKE 36874,X":i: 

960 PRINT "Valori di V(volume) tra":"0 min & 15 max":: 

970 PRINT "Valori di X(frequenza) tra":"128 & 255 (4 ottave)":: 

980 PRINT "36877 GENERA RUMORE CON LA":"FREQUENZA X,LE ALTRE CELLE": 
990 PRINT "DI MEMORIA GENERANO UN":"'TONO'": : 

1000 PRINT "PREMI UN TASTO" 

1010 GOSUB 2520 
1020 CALL CLEAR 


1030 

PRINT 

"CORRISPONDENZA NOTE VIC-TI":" 

VIC 


TI 99 

1040 

PRINT 

" 195 DO = 

262 ":" 

199 

D0#= 

277" 

: 

1050 

PRINT 

" 201 RE = 

294 "t" 

203 

MI b = 

311" 

: 

1060 

PRINT 

" 207 MI = 

330 

209 

FA = 

349" 

: 

1070 

PRINT 

" 212 FA#=» 

370 ": " 

215 

SOL* 

392" 

: 

1080 

PRINT 

" 217 LAb= 

415 ":" 

219 

LA * 

440" 

: 

1090 

PRI NT 

" 221 SI = 

494":: : 





1 100 

PRINT 

"PREMI UN TASTO" 






1110 

GOSUB 

2520 






1120 

CALL CLEAR 






1130 

PRINT 

"ESEMPIO DIMOSTRATIVO"::: 





1 140 

PRINT 

"ISTRUZIONI VIC:" 

a a 





1150 

PR I NT 

"POKE 36878,15":" 

POKE 36876,209" 

a 




1160 

PRINT 

"FOR T-i TO 1500" 

:"NEXT": 





1170 

PRINT 

"POKE 36876,0":"POKE 36878,0" 





1180 

PRINT 

: :"CORRISPONDENTE 

SUL TI 99":: 





1190 

PR I NT 

"CALL SOUND(1500, 

349,0)":: 






1200 CALL SOUND(1500,349,0) 

1210 PRINT "PREMI UN TASTO" 

1220 GOSUB 2520 
1230 GOTO 790 
1240 CALL CLEAR 

1250 PRINT "REGISTRO COLORE SCHERMO: " : "P0KE36879,C=CALL SCREEN(C)": 
1260 PRINT "COLORI COMUNI»":: 


1270 

PRINT " 

VIC 


TI 99":: : 




1280 

PRINT " 

8 

NERO 

2 " : " 

25 

BIANCO 

16": 

1290 

PRINT " 

42 

ROSSO 

9 " : » 

59 

AZZURRO 

4": 

1300 

PRINT " 

76 

PORPORA 

14 " : " 

93 

VERDE 

3": 

1310 

PRINT " 

110 

BLU* 

5 " : " 

127 

GIALLO 

11": 


1320 PRINT :: 

1330 PRINT "PREMI UN TASTO" 

1340 GOSUB 2520 
1350 CALL CLEAR 

1360 PRINT "ESEMPIO DIMOSTRATIVO:":: 

1370 PRINT "ISTRUZIONI SUL VIC ":: 

1380 PRINT "POKE 36879,76":: 

1390 PRINT "CORRISPONDENTE SUL TI 99/4A" 

1400 PRINT :"CALL SCREEN(14)": :i: 

1410 CALL SCREEN(14) 

1420 PRINT "PREMI UN TASTO" 

1430 GOSUB 2520 
1440 CALL SCREEN(15) 

1450 GOTO 790 
1460 CALL CLEAR 

1470 PRINT "MODO CREAZIONE CARATTERI":: 

1480 PRINT :"Sul Texas ogni carattere e'":"formato da una griglia di" 
1490 PRINT "8*8 pixels divisi in 2 ":"blocchi simmetrici e " 

1500 PRINT "commutabili in stato off e ":"on,attraverso un codice " 
1510 PRINT "esadecimal e. (vedi il man.":"d'uso a pag.84)" 

1520 PRINT :: 

1530 PRINT "Sul Vie il procedimento e'":"leggermente diverso!!" 

1540 PRINT : : : :"premi un tasto" 

1550 GOSUB 2520 
1560 CALL CLEAR 

1570 PRINT "Sul Vie,esiste una locazione di memoria capace di" 

1580 PRINT "leggere da una zona della memoria R0M,i caratteri." 

1590 PRINT "Alterandone il valore":"e' possibile creare nuovi" 

1600 PRINT "caratteri.":"La locazione in questione" 

1610 PRINT "e' POKE 36869,c:" 

1620 PRINT : : 

1630 PRINT :"vai ori di C.":"C=240 MODO TESTO MAIUSCOLO" 


86 









TEXAS TI 99/4A 



1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 


UN CODICE DIVERSO": : 


PRINT "C=242 modo testo minuscolo"s"C=254 0 255 0 253 " 
FRINT "CREAZIONE CARATTERI GRAFICI" 

PRINT : : :"premi un tasto" 

GOSUB 2520 
CALL CLEAR 

PRINT "IL VIC USA UNA MATRICE 8*8":"MA CON 
CALL CHAR(144,"FF818181818181FF") 

CALL CHAR(145,"FFFFFFFFFFFFFFFF") 

PRINT ::: 

CALL HCHAR(4,4,144,8) 

CALL HCHAR(4,20,48) 

CALL HCHAR(5,4,144,7) 

CALL HCHAR(5,11,145) 

CALL HCHAR(5,20,49) 

CALL HCHAR(6,4,144,6) 

CALL HCHAR(6,11,144) 

CALL HCHAR(6,10,145) 

CALL HCHAR(6,20,50) 

CALL HCHAR(7,4,144,5) 

CALL HCHAR(7,9,145) 

CALL HCHAR(7,10,144,2) 

CALL HCHAR(7,20,52) 

CALL HCHAR(8,4,144,4) 

CALL HCHAR(8,8,145) 

CALL HCHAR(8,9,144,3) 

CALL HCHAR(8,20,56) 

CALL HCHAR(9,4,144,3) 

CALL HCHAR(9,7,145) 

CALL HCHAR(9,8,144,4) 

CALL HCHAR(9,19,49) 

CALL HCHAR(9,20,54) 

CALL HCHAR(10,4,144,2) 

CALL HCHAR(10,6,145) 

CALL HCHAR(10,7,144,5) 

CALL HCHAR(10,19,51) 

CALL HCHAR(10,20,50) 

CALL HCHAR(11,4,144) 

CALL HCHARdl ,5,145) 

CALL HCHARdl,6,144,6) 

CALL HCHARdl, 19,54) 

CALL HCHARdl ,20,52) 

CALL HCHAR(12,4,145 > 

CALL HCHAR(12,5,144,7) 

CALL HCHAR(12,18,49) 

CALL HCHAR(12,19,50) 

CALL HCHAR(12,20,56) 

CALL HCHAR(13,4,145,8) 

CALL HCHAR(13,18,50) 

CALL HCHAR(13,19,53) 

CALL HCHAR(13,20,53) 

PRINT :"premi un tasto" 

GOSUB 2520 

IF K=35 THEN 2320 ELSE 2170 
CALL CLEAR 

PRINT "CONVERSIONE":"DECIMALE ESADECIMALE": : 

FOR W=1 TO 8 
INPUT "DEC. ": DEC 

IF DEC>(SQR(255))^2 THEN 2200 ELSE 2220 
V*=" •• 

FOR 1=3 TO 0 STEP -1 
N=INT(DEC/(16^1)) 

DEC=DEC—N* 1 6 y ' I 



V$=V*&CHR*(48+N-7*(N>9)) 

NEXT I 

PRINT Wf"HEX. "|V* 

NEXT N 

PRINT :"BLOCCO COMPLETO # = MENU'" 
GOTO 2140 
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TEXAS TI 99/4A 



2320 GOTO 790 
2330 CALL CLEAR 

2340 PRINT "ALTRA CARATTERISTICA DEL VICE* LA CAPACITA' DI SIMULARE" 

2350 PRINT "L'ISTRUZIONE HCHAR 0 VCHAR DEL TI 99/4A" 

2360 PRINT "PER CONVERTIRE SUL TEXAS RICORDATEVI CHE LO SCHERMO VIC E' DI 23 

X 22" 

2370 PRINT "LO SCHEMA USATO E's POKE 7680+X+Y*22,A IN CUI X-ASC 

ISSA" 

2380 PRINT " Y=ORDINATA C=CODICE CARATTERE" 

2390 PRINT ::"ATTENZIONE!!":"IL CODICE C PER ESSERE USA TO SUL TI,DEVE ESSERE S 
OMMA TO A 32" 

2400 PRINT "IL TOTALE DELLA FORMULA VIC NON DEVE ESSERE SUPERIORE A 8185 E NON I 
NFERIORE A 7680" 

2410 PRINT "premi un tasto" 

2420 GOSUB 2520 
2430 CALL CLEAR 

2440 PRINT "ANALOGO DISCORSO VALE PER POKE 38400,K # POKE 38905,K" 

2450 PRINT "INDIRIZZANO IL COLORE K SECONDO LO SCHEMA* POKE 38440+X 

+Y*22" 

2460 PRINT "CODICE COLORI CARATTERE VIC" : s"ANALOGO CALL COLOR(I,K,K1)" 

2470 PRINT :" 0=NER0 4=P0RP0RA "i" IMBIANCO 5-VERDE " 

2480 PRINT " 2=R0SS0 6=*BLU' " s " 3=AZZURR0 7»GIALL0" 

2490 PRINT : : : *"premi un tasto" 

2500 GOSUB 2520 
2510 GOTO 790 
2520 CALL KEY<0,K,S> 

2530 IF S=0 THEN 2520 
2540 IF K=13 THEN 2560 
2550 RETURN 
2560 CALL CLEAR 
2570 END 
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Occhio alla cifra! 


Questo semplice programma vi permetterà di misurarvi con un amico di unc gara di colpo d'occhio e 
prontezza di riflessi: un numero, generato casualmente dal computer, viene evidenziato sullo schermo 
per un brevissimo tempo, proporzionale al numero delle cifre aa cui è composto. Occorre distinguere 
le cifre e ripeterle, ribattendole su tastiera. Inizialmente si potrebbe pensare di scegliere numeri con 
poche cifre, più facili da leggere in breve tempo ma, attenzione, il punteggio, in caso di riuscita, è pro¬ 
porzionale al numero di cifre. 

Quindi, rischiate con numeri lunghil 

Se volete uno schermo colorato e non nero, modificate la linea 7 introducendo al posto di Di codici dei 
colori che piu preferite per il bordo (locazione 53280) e per lo sfondo (locazione 53281). 


STRUTTURA PROGRAMMA 
Linee 


1- 14 

stampa copertina 

15- 18 

richiesta istruzioni 

19- 20 

inserimento nomi giocatori 
inizio gioco e display numero 

50- 86 

118-157 

richiesta del numero 

158-222 

calcolo punteggio e incremento della giocata 

223-250 

stampa risultati finali 

260-290 

richiesta altra partita 

497-610 

subroutine stampa istruzioni 

VARIABILI 

C$, D$: 

nomi giocatori 

Z,P: 

punteggio giocatori 

K,W: 

contatori giocate 

L: 

lunghezza numero 

X: 

numero casuale generato dal computer 

E: 

numero letto 


1 REM #**OCCHIO ALLA CIFRA!*** 

2 REM **# *** 

3 REM * * DI MAURO CIFANI * * 

4 REM # V. VALERIO FRACCO N.1 * 

5 REM ##*RGMA TEL.7614139 *** 

b REM ###STAMPfl COPERTINA#** 

7 PRINT" rr :POKE53280,0:PQKE53281,8 

8 PR IN r " " 

9 PRINT"t!>****Ì*Ìli OCCHIO ALLA CIFRA! •" 

1 8 PR I NT " 

12 PRIMI PER CONTINUARE PREMI UN TASTO" 

14 GETfl$ : IFAf=""THEN14 

15 PRINT"US VUOI LE ISTRUZIONI <S/N>?" 

16 GETA$: IFAT=""THEN16 

17 IFA$="S"THEN508 : IFA$0"N"THEN16 

18 IFATO"N"THENlb 








19 PRI NT " IT : INPUT "NOME 1 ' GI OCfìTORE " ; C$ 

20 I NPUT " MBWOME 2 GI OCfìTORE " ; D$ •’ Z=0 : K=0 : N=0 
50 PR I NT " n?J31 OCR " ; CT : PR I NT : PR I NT : GOTO70 

60 POR I = 1T O300O NE NT : PR I NT " 3W31 OCR " ; UT 

70 INPUT"«LUNGHEZZA DEL NUMERO" ;L 

71 : 

72 REM *#*CONTATORI DELLE GIOCATE#*# 

75 W=W+1:K=K+1 
-77 : 

78 REM *##CfìLCOLO NUMERO CASUALE### 

79 : 

80 X=INT <RND<1>*10IL >:PRINT 

81 FORI=1T0200'NENT 

82 F0RI = lT04-PRINT"^!l«?M«l!W*»»»li#l:-fìTTENZI0NE! NUMERO IH ARRIVO!■" 

83 FORT=1TO150:NEXTT 

84 PR I NT " ^PlPlPMdPMPJiiiHÌTTENZ I ONE ! NUMERO IN ARRIVO!" 

85 FORT=1TO150 NENTT:NENTI 

86 PR I NT " IT«M«I«M«I«IB»M»»»»M»»*I21" X " 

118 = 

119 REM ***DURATA HISPLAV NUMERO#** 

120 FORI=1TO<2TL+400>:NEXT:PRINT"□" 

129 : 

130 REM ###R1CHIESTÀ NUMERO*** 

131 : 

150 INPUT"SECONDO TE,QUAL 'ERA IL NUMERO "; E 

157 : 

158 REM ***CALCOLO PUNTEGGIO*** 

159 : 

160 IFE=XTHENZ=Z+LT2 : PRINT"«JJK, HAI INDOVINATO,IL PUNTEGGIO E'= ";Z:GOTO180 
170 PRINT"«NO, IL NUMERO ERA ";XJ" E NON ";E 

180 IFW=10THEN220 

190 IFK=5THENPRINT"«I«F INE":P=Z:Z=U:K=0 ; GOT060 

210 GOT070 

220 PRINT : PRINT 

222 FORI — 1T0999 : NEXT 

223 REM ***RIEPILOGO PUNTEGGI FINALI*** 

224 PRINT'LT':PRINT 1 "PUNTEGGIO DI ";CS;"= ";P 
226 PRINT".««PUNTEGGIO DI ";D$.;" = ";Z 

228 FRINT ; PRINT 

230 IFP>ZTHENPRINT"«WM , ';C$; M E' IL CAMPIONE" : GOTO260 
240 IFPCZTHENPRINT"Ifl"; D$ : " E' IL CAMPIONE" = G0T0260 
250 IFP=ZTHENPRINT"W?W";"SIETE STATI BRAVI ENTRAMBI!" 

260 PRINT" «M«!J«I«!M«PLTR A PARTITA ?<S/N>" 

262 GETfì# : IFAT=""THEN262 
270 IFA*="S"THEN19 
280 I FATO " N " THEN260 
290 END 

497 : 

498 REM ***3TAMF'A ISTRUZIONI*** 

499 

500 PRINT"3 IL GIOCO SI SVOLGE TRA DUE GIOCATORI." 

510 PRINT"INSERÌTE I NOMI,POI A TURNO SCEGLIETE " 

520 PRINT"LA LUNGHEZZA DEL NUMERO DA INDOVINARE." 

530 PRINT"APPARIRÀ' AL CENTRO DELLO SCHERMO UN " 

540 PRINT"NUMERO,CHE SARA' VISIBILE PER POCHIS-" 

550 PRINT"SIMO TEMPO.CERCATE DI INDOVINARLO." 

560 PRINT"fclIL PUNTEGGIO E"' IN FUNZIONE DEI NUMERI" 

570 PRINT"INDOVINATI,MA ANCHE DELLE LUNGHEZZE " 

580 PRINT"SCELTE." 

582 PRINT"NUMERI PIU'LUNGHI DANNO PI W PUNTI !" 

585 PRINT"«FREMETE SEMPRE SCRETURN]" DOPO LE DOMANDE" 

590 PRINT"«M«M«MPER PROSEGUIRE PREMI UN TASTO" 

600 GETAT•IFA$=""THEN6O0 
610 GOTO19 
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SINCLAIR ZX-81 



Breakout 


Versione per lo ZX-81 di un classico dei giochi da Bar. 

Dovete riuscire ad abbattere due file di mattoni. Per ogni mattone colpito guadagnate 10 punti ed una 
palla - bonus viene data per ogni schermo completato. 

All'inizio del gioco avete a disposizione tre palle ma / volendo / potete aumentarle per rendere la par¬ 
tita più facile, o diminuirle, per renderla più difficile, intervenendo sulla variabile P alla linea 15. 
Controllate la vostra racchetta mediante i tasti Q (sinistra) e P (destra). 



1 REM ********************** 

2 REM ** ** 

3 REM * BRERKOUT * 

4 REM ** ** 

5 REM * ZX-61 16K * 

6 REM ** ** 

7 REM ****************** * * * * 

© REM 

9 LET H $ = " 0 *' 

10 LET 5=0 

11 LET PN =0 

15 LET P =3 

20 LET K=2 

30 LET N =2 

4-0 PRINT ••P™^^ 


PRINT RT 0,7;"PUNTI MRX . 
RT 0,23 —(LEN 
PRINT 


00 



FOR F=4 TO 20 
PRINT "M 

90 NEXT F * 

100 LET X=1 
110 LET Y = 1 

120 LET B =0 _ 

130 LET B $ = '* " 

140 PRINT RT X,Y;" " 

150 LET X =X -f N - 1 
160 LET Y =Y +K - 1 

170 IF X = 19 THEN GOSUB 500 

180 IF X = 2 OR X =3 THEN GOSUB 70 


190 IF Y =30 THEN LET K = 0 
200 IF X=1 THEN LET N=2 
210 IF Y = 1 THEN LET K = 2 
220 LET B=B+(INKEY$="P" RND B+4 
31) - ( INKEY$ = ’ , Q” RND B>0> 
drint RT 20 , B , B $ 


240 PRINT RT X,Y;"0" 

260 GOTO 140 

f22 IF Y=B*1 OR Y=B«-3 THEN GOTO 
600 

51® Y < >B *2 THEN GOTO 1000 

520 LET N =0 

530 RETURN 

610 LET N = —0.5 

620 RETURN 

700 PRINT RT X , Y; 

*710 IP PEEK (PEEK 16398 +256 *PEE 
K 16399) <>0 THEN GOTO 750 
720 RETURN 
750 LET 5=5*10 

IF S>590 THEN GOTO 2000 
760 LET N=2 
770 RETURN 

1000 LET P =P-1 

1001 LET PN=PN+5 

1002 LET 5=0 

l®i® p =0 THEN GOTO 1110 

4020 PRINT RT 10,11; "PALLA PER5R 

1030 FOR F = 1 TO 50 

1040 NEXT F 

1050 PRINT RT 10,11;" 

1060 LET Xsl+P 
1070 LET Y = l+P 
1060 GOTO 140 

èf 1 P ?pS^t ì 0 * Hk GRME OUER “ ; 

R$ 2 PN IF PN>URL H * THEN LET H*=5T 

1130 PRUSE 4E4 
1135 CL5 
1140 GOTO 10 

2000 PRINT RT 11,10 ;"B ONU S" 

2010 LET PN=PN+5 

2020 LET 5=0 

2030 FOR F = 1 TO 50 

2040 NEXT F 

2050 LET P=P+1 

2060 GOTO 20 

















MANUALE 


Indicazioni per la conversione di 
programmi dallo ZX-81 allo ZX- 
SPECTRUM. 

Nonostante il BASIC dello ZX-81 
sia essenzialmente identico a 
quello dello ZX-SPECTRUM, sono 
necessarie alcune modifiche 
perché i programmi del primo “gi¬ 
rino” sul secondo. 

Sottoponiamo all’attenzione del 
nostro lettore un piccolo elenco 
dei comandi BASIC da modificare. 

— Pause 

Per lasciare lo ZX-81 in “attesa” fi¬ 
no a quando non viene premuto il 
tasto, si usa generalmente il co¬ 
mando PAUSE 40.000 che sullo 
SPECTRUM deve essere cambiato 
in PAUSE 0. 

Questo comando può comunque 
essere sostituito sullo ZX-81 da un 
ciclo “vuoto" di FOR-NEXT che, a 
sua volta, ugualmente può essere 
reso sullo SPECTRUM mediante il 
comando PAUSE. 

— SloweFast 

Lo SPECTRUM opera alla stessa 
velocità dello ZX-81 quando si tro¬ 
va in FAST (veloce). 

Per giochi di grafica e animazione 
potrebbe essere necessario rallen¬ 
tare la velocità di esecuzione dello 
SPECTRUM. 

Per far ciò si usi un ciclo "vuoto” di 
FOR-NEXT, es.: 

FOR K = 1 TO20: NEXT K 
È possibile inoltre “rallentare” il 
computer aggiungendo dei co¬ 
mandi BEEP che segnalino, per 
esempio, dei BONUS. 

— Scroti 

L’effetto SCROLLing sullo SPEC¬ 
TRUM è automatico e non esiste, 
pertanto, lo SCROLL come coman¬ 
do. 

Si può sostituire il comando 
SCROLL dello ZX-81 mediante una 
POKE: 

POKE 23692,255: PRINT AT 21,0: 
PRINT 

— PEEKing e POKEing 

In molti programmi per lo ZX-81 
possono trovarsi istruzioni del tipo 
PRINT ATY.X; 
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LET A$= CHR$ PEEK (PEEK 
16398 + 256 PEEK 16399) 

Le locazioni 16398 e 16399 con¬ 
tengono l'indirizzo dell'ultima posi¬ 
zione sullo schermo del carattere, 
per cui con il PEEKing di questo va¬ 
lore si ottiene il codice di quest’ulti¬ 
mo in quel punto (nell’esempio la 
posizione Y, X). 

Viceversa 

POKE (PEEK 16398 + 256 PEEK 
16399), n 

va ad inserirsi nello schermo il ca¬ 
rattere avente codice n. 

Sullo schermo SPECTRUM, il co¬ 
mando PEEK può essere sostituito 
con LET A$ = SCREEN$ (Y,X) 
che da il carattere punto Y, X oppu¬ 
re 

LET A= ATTR(Y.X) 

che da gli attributi del carattere: 

colori, brillantezza ed eventuali 

FLASHING. 

Sostituire il comando POKE è inve¬ 
ce piu difficile. È preferibile, per 
semplificare le cose, usare un co¬ 
mando PRINT AT. 

— Plot e Unplot 


Il comando UNPLOT può essere 
sostituito dal comando PLOT 
OVER 1. 

— Memoria 

Lo SPECTRUM è provvisto di colori 
e di grafica ad alta risoluzione. Ciò 
significa che su un 16K quasi 7K di 
memoria sono riservati per lo 
schermo mentre restano a disposi¬ 
zione dell'utente solo 9K. 

Per questo motivo un programma 
per lo ZX-81 16K potrebbe avere 
delle difficoltà a "girare" su uno 
SPECTRUM 16K. 

Si cerchi, quindi, di “ridurre” i pro¬ 
grammi dello ZX-81 inserendo, per 
esempio, più istruzioni in una unica 
linea (i cosiddetti “MULTI-LINE 
STATEMENTS”). Si cerchino inol¬ 
tre le routines comuni che posso¬ 
no essere sostituite da funzioni de¬ 
finite dall’utente e routines IF- 
THEN che possono essere "ridot- 

\ q " gg,: 

100 IF A$ = “SI” THEN GOSUB 
700. 


700 PRINT ‘PUNTEGGIO = 0' 

710 LET = 14 
720 LET Y = Y-1 
730 RETURN 
sullo SPECTRUM 

100 IF A$= “si” THEN PRINT 
“PUNTEGGIO = 0’: LET J = 14: 
LET J = J-1 


Sullo ZX-81 le coordinate PLOT so¬ 
no su 44 righe e 64 colonne. Sullo 
SPECTRUM, il comando PLOT 
opera in alta risoluzione su 256 
punti x 176. 

Ciò significa che è possibile otte¬ 
nere linee, cerchi e figure "impos¬ 
sibili” sullo ZX-81. 

Quindi se lo ZX-81 ricorre ad una 
routine per disegnare linee o figu¬ 
re, si sostituisce questa con i co¬ 
mandi DRAW e CIRCLE. 

Per figure di una certa consistenza 
la routine PLOT dello ZX-81 con 
una routine PRINT AT. 


— Suono , colore e grafica 
UDG 

È naturale che nel convertire un 
programma si desidera, grazie alle 
capacità dello SPECTRUM, miglio¬ 
rarlo graficamente. 

Ad ogni modo si eviti di aggiungere 
suono, colore e UDG se prima non 
si accerta che il programma con¬ 
vertito “giri” perfettamente, in 
quanto si potrebbe creare un’inuti¬ 
le e infruttuosa confusione. 


9 <? 







Da molte parti ci giungono appelli 
alla semplicità costruttiva dei pro¬ 
totipi che via via veniamo presen¬ 
tando sulle nostre pagine da ormai 
diversi mesi. 

Per la gioia dei neofiti del saldatore 
e dei circuiti stampati doppia fac¬ 
cia in questo numero presentere¬ 
mo un piccolo circuito da collega¬ 
re al nostro Vie. 

Il circuito è un semplice amplifica¬ 
tore che ci permetterà di udire dei 
suoni generati dal timer interno del 
VIA (Versatile Interface Adaptor) 
che gestisce la USER-PORT e 
quindi totalmente indipendente dal 
generatore sonoro controllato dal 
6561. 

Le applicazioni possono essere 
molteplici; una delle più interes¬ 
santi è quella di sostituire la sirena 
elettronica esterna al sistema di al¬ 
larme presentato su questa rubri¬ 
ca nel numero di marzo-aprile 
1984 personalizzando a piacimen¬ 
to il suono della nostra sirena. 


6522 — Via (versatile interface 
adaptor) 

Il chip è formato da una combina¬ 
zione di tre parti: PIO (Parallel in- 
punt output) - Timer - Shift Regi- 
ster. 

La sezione PIO comprende due 
porte bidirezionali ad otto bit. Ad 
ognuna delle due porte fa riferi¬ 
mento un registro direzione dati, 
uno per la porta A chiamato DDRA 
ed uno per la porta B chiamato 
DDRB. Quando il bit di direzione 
dati è 0 la linea corrispondente 
sarà un ingresso e viceversa. 

Ora per non complicare troppo le 
cose guarderemo esclusivamente 
le parti che interessano diretta- 
mente il nostro dispositivo. 

Diciamo che per generare dei suo¬ 
ni all’uscita CB2 della User-Port 
(piedino M) ci interessano soltanto 
tre parti che per Esattezza sono: 



A) ACR (Auxiliary control Registrer) 

B) SF (Shift Registrer). 

C) Timer N.2 

In due parole il funzionamneto si 
basa sul registro di shift il quale 
consente di realizzare la trasmis¬ 
sione seriale di dati sulla linea 
CB2, controllato dai bit 2 3 4 del 
Registro di controllo ausiliario che 
noi imposteremo nella configura¬ 
zione 1 0 0 che stabilisce il modo di 
funzionamento in Free Running 
Mode (ossia genererà un treno 
continuo di impulsi). Il registro di 
shift può realizzare la trasmissione 
seriale tramite un clock generato 
internamente attraverso il Timer 2. 
Nella mappa di memoria del Vie ad 
ogni registro è associato un corri¬ 


spondente indirizzo, quelli che ci ri¬ 
guardano direttamente sono: 
Registro di controllo ausiliario - 
37147 

Registro di Shift - 37146 

Timer 2 byte basso - 37144 (il byte 

alto non verrà usato). 

I vari registri possono essere cari¬ 
cati dal Basic attraverso una Poke. 
P.E per far si che lo shif operi in 
free running mode occorre scrive¬ 
re nel registro di controllo ausilia¬ 
rio 

POKE 37147,16 

Questo comando abiliterà il modo 

musicale 

POKE 37146, X 

Deciderà il range di frequenza (X 
da 1 a 255) 

POKE 37144,Z 

Invece deciderà la frequenza (Z da 
1 a 255). 

Quindi a questo punto creare un 
semplice generatore di musica è 
alquanto semplice, basterà variare 
la frequenza di uscita su CBE. 


SCHEMA ELETTRICO 


CB2 















Il programma dimostrativo che se¬ 
gue ne è una dimostrazione: «• 


Considerazioni 



10POKE 37147,16 

20 POKE37146.15 

30 FOR I = 1 TO 15 

40 FOR J = 250 TO 200 STEP -1 

50 POKE 37144,J 

60NEXTJ 

70NEXTI 

80 POKE 37147,0:POKE 
37146,0:POKE 37144,0 

Note: 

Un avvertenza importante è quella 
di chiudere il programma disabili¬ 
tando le locazioni usate, linea 80. 


Descrizione componenti 


TRI Transistor NPN2N171t 
RI = 22 Kohm 
R2 = 33ohm 


Qui di seguito riportiamo il listato 
del programma pubblicato nel nu¬ 
mero di marzo, sempre relativo al 
sistema di allarme, integrato que¬ 
sta volta con la routine della sirena 
elettronica (sottolineata). I collega- 
menti da realizzare non sono molti. 
L’alimentazione deH’amplificatore 
sarà prelevata dai morsetti relativi 
alla sirena rispettando la polarità 
(come da schema elettrico di pag. 
5 “Rivista Marzo 1984”). 

L’uscita CB2 (Piedino M della 
User-Port), andrà collegata all’in¬ 
gresso dell’amplificatore, il piedi¬ 
no N invece (massa) andrà colle¬ 
gata alla massa dell’amplificatore. 
Il segnale CBE e la relativa massa 
saranno prelevati dalla preceden¬ 
te scheda saldando il cavetto 
schermato ai piedini M ed N del 
connettore e riportati all’ingresso 
dell’amplificatore. 


1 REM * PROGRAMMA ALLARME * 

2 REM * COPYRIGHT LIST * 

IO POKE37138.128 

20 POKE37136,0 GOSUB1O0 
25 PRINT".T A=PEEK< 37136 JAND1 
30 GOSUB2000 
35 IFA=0THEN20 

40 POKE 37136 < PEEK < 37136, OR 128 
50 GOSUB1000 
80 GOTO20 

100 FORI«ITO1000 NEXT RETURN 
1000 TI*="000000" 

1010 PRINTM" 

1014 PRINT"{■ munì—MUilillMiWMir 

1015 PRINT "4 

1020 PRINT"* TEMPO IN SECONDI 
1025 PRINT”* 

1030 PRINT"# 

1035 PRINT"* 

1040 PRINT"* 

1045 PRINT"* 

1050 PRINT"# 

1055 PRINT"* 

1056 PRINT"* 

106O print"ì tmmmmmmmmmm 

1065 PRINT"! 

1070 PRINT"# 

1075 PRINT"* 

1080 PRINT' _ 

1100 P0KÉ37147.16 
1105 PÙKE37146,15 
1110 F0RI=1T015 
1115 FORJ«250TO200 STEP-1 
1120 F0KE37144,J 
1125 NEXTJ 
1130 NEXTI 


a A L L A R M 


*" 

ES !” 

M" 


1140 PRINT" TTTtTTTTTTMM ifTTI * 
1170 IF TI#»>"000010"THEN1190 


11130 POKE37147.0 P0KE37146,0 P0KE37144,0' 

1200 RETURN 


2010 PRINT" s 

ft" 

2015 PRINT"* 

*" 

2020 PRINT"* 

S" 

2025 PRINT"# 

*" 

2030 PRINT".. 

*•• 

2035 PRINT"a 

*" 

2040 PRINT"# 

#" 

2045 PRINT"# 


2050 PRINT"* 

*" 

2055 PRINT".- 

*" 

2060 PRINT"* 

#" 

2065 PRINT"# 


2070 PRINT"* 


2075 PRINT"* 


2080 pp i nt " ummmmm, vmmw mm" 

2030 PRINT"TTTTTTTTT~B* 

ALLARME INSERITO" 

2095 PP I NT " 1 MANGO 

2100 RETURN 

READY. 

IN ATTESA" 


Lo schema dell'amplificatore da 
noi proposto naturalmente è solo 
sperimentale, poiché è impensabi¬ 
le collegare ad un sistema d’allar¬ 
me una sirena del genere. Nulla 
vieta comunque cambiare il tipo di 
amplificatore e inserirne uno di 
maggiore potenza. I collegamenti 
rimangono esattamente gli stessi, 
naturalmente di 12 V (che è quella 
a disposizione dell’alimentatore 
esterno. Se invece vogliamo usare 
l’amplificatore per applicazioni do¬ 
mestiche basterà alimentare il tut¬ 
to a + 5 V e prelevare l’alimenta¬ 
zione direttamente dal Ve (piedino 
n. 2 della User-Port + 5V e piedino 
n.1) 


Provate a memori zzare 
ed ese9u. i re 


1 ij.es ta 

rout 

i rie : 


10 

POKE 

37147, 

16 

20 

POKE 

37146, 

20 

30 

FOR 

[ = 1 TO 

300 

40 

POKE 

37144, 

1 00 

50 

POKE 

37144, 

180 

60 

POKE 

37144, 

240 

70 

NEXT 

I 


30 

POKE 

37147, 

0 

90 

POKE 

37146, 

0 

100 

POKE 

37144, 

0 

Bu.ori div 

srtìmento ! 
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Vi prego di mettere in corso un ab¬ 
bonamento a 6 numeri della rivista 

— L. 30.000 (Italia) 

— L. 60.000 (estero) 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 

Desidero ricevere la rivista 

□ a casa □ fermoposta 


I I I I I I I I I I I I I I I I 


nome 


I I I I I I I I I I I I I I I I 

cognome 


via 


città 


e«P età 


posseggo un home computer 


tipo: 

A/.fi Conservare il tagliando ricevuta del c.c.p.: esso costituisce docu¬ 
mento idoneo e sufficiente ad ogni effetto contabile in quanto l'IVA sui 
periodici è assolta dall'editore - Non si rilasciano fatture 


PER ABBONARTI ^ 

W PER ISCRIVERTI AL UST CLUB 


Vi prego di accettare la mia iscrizio¬ 
ne al LIST-CLUB e di inviarmi tesse¬ 
ra e adesivo. 



□ ho pagato L. 20.000 

□ ho pagato L. 10.000 perché 
abbonato alla rivista 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 


I I I I I I I I I I I I I I I I I I 

cognome 

I I I 1 I I I I I I I I I I I I I I 

via 

I I I I I I I I I I I I I I I I I 

città 


<*P età 


posseggo un home computer 


tipo: 



smimf! 


DI 

PARTECIPAZIONE 


Il sottoscritto__ 

chiede di partecipare al concorso STRIKE. indetto dal¬ 
la rivista «LIST-programmi per il tuo home-computer», 
inviando un programma inedito da me elaborato, 
avente per titolo_ 


destinato al computer (modello)_. 

In allegato invio il programma registrato su_ 

Con la presente dichiaro di assumermi ogni responsa¬ 
bilità in merito alla originalità dell'elaborato e di cede¬ 
re ogni diritto di utilizzazione e di riproduzione alia 
EDICOMP s.r.l. 

Firma_ 


CARTOLINA 


nome 


cognome 


via 

I I I I I I I I I I I I 1 I I 

città 


<*P età 


posseggo un home computer 


tipo: 




















































Inserire in busta chiusa 


Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 


Inserire in busta chiusa 

Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 


Inserire in busta chiusa 

Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 



Roma 












